home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1998-06-17 | 107.4 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 ad 9d 00 00 00 01 | 00 00 00 00 00 00 00 00 |........|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 00 00 01 00 00 00 10 | 56 45 52 53 49 4f 4e 20 |........|VERSION |
|00000210| 3d 20 20 20 33 2e 30 30 | 00 00 00 01 00 00 00 09 |= 3.00|........|
|00000220| 61 70 70 62 6c 64 72 2e | 68 00 00 00 01 00 00 00 |appbldr.|h.......|
|00000230| 0f 64 61 74 61 65 6e 76 | 69 72 6f 6e 6d 65 6e 74 |.dataenv|ironment|
|00000240| 00 00 00 01 00 00 00 0f | 64 61 74 61 65 6e 76 69 |........|dataenvi|
|00000250| 72 6f 6e 6d 65 6e 74 00 | 00 00 01 00 00 00 0f 44 |ronment.|.......D|
|00000260| 61 74 61 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 00 00 |ataenvir|onment..|
|00000270| 00 01 00 00 00 4a 4c 65 | 66 74 20 3d 20 31 0d 0a |.....JLe|ft = 1..|
|00000280| 54 6f 70 20 3d 20 32 32 | 30 0d 0a 57 69 64 74 68 |Top = 22|0..Width|
|00000290| 20 3d 20 35 32 30 0d 0a | 48 65 69 67 68 74 20 3d | = 520..|Height =|
|000002a0| 20 32 30 30 0d 0a 4e 61 | 6d 65 20 3d 20 22 44 61 | 200..Na|me = "Da|
|000002b0| 74 61 65 6e 76 69 72 6f | 6e 6d 65 6e 74 22 0d 0a |taenviro|nment"..|
|000002c0| 00 00 00 01 00 00 00 01 | 31 00 00 00 01 00 00 00 |........|1.......|
|000002d0| 01 32 00 00 00 01 00 00 | 00 04 66 6f 72 6d 00 00 |.2......|..form..|
|000002e0| 00 01 00 00 00 04 66 6f | 72 6d 00 00 00 01 00 00 |......fo|rm......|
|000002f0| 00 0d 66 72 6d 41 70 70 | 42 75 69 6c 64 65 72 00 |..frmApp|Builder.|
|00000300| 00 00 01 00 00 01 59 44 | 61 74 61 53 65 73 73 69 |......YD|ataSessi|
|00000310| 6f 6e 20 3d 20 32 0d 0a | 48 65 69 67 68 74 20 3d |on = 2..|Height =|
|00000320| 20 32 38 34 0d 0a 57 69 | 64 74 68 20 3d 20 34 35 | 284..Wi|dth = 45|
|00000330| 36 0d 0a 44 6f 43 72 65 | 61 74 65 20 3d 20 2e 54 |6..DoCre|ate = .T|
|00000340| 2e 0d 0a 53 68 6f 77 54 | 69 70 73 20 3d 20 2e 54 |...ShowT|ips = .T|
|00000350| 2e 0d 0a 41 75 74 6f 43 | 65 6e 74 65 72 20 3d 20 |...AutoC|enter = |
|00000360| 2e 54 2e 0d 0a 42 6f 72 | 64 65 72 53 74 79 6c 65 |.T...Bor|derStyle|
|00000370| 20 3d 20 32 0d 0a 43 61 | 70 74 69 6f 6e 20 3d 20 | = 2..Ca|ption = |
|00000380| 22 41 70 70 6c 69 63 61 | 74 69 6f 6e 20 42 75 69 |"Applica|tion Bui|
|00000390| 6c 64 65 72 22 0d 0a 4d | 61 78 42 75 74 74 6f 6e |lder"..M|axButton|
|000003a0| 20 3d 20 2e 46 2e 0d 0a | 63 6d 65 74 61 64 62 66 | = .F...|cmetadbf|
|000003b0| 20 3d 20 0d 0a 6c 66 72 | 61 6d 65 77 6f 72 6b 20 | = ..lfr|amework |
|000003c0| 3d 20 0d 0a 63 68 6f 6f | 6b 63 6c 61 73 73 20 3d |= ..choo|kclass =|
|000003d0| 20 0d 0a 63 68 6f 6f 6b | 66 69 6c 65 20 3d 20 0d | ..chook|file = .|
|000003e0| 0a 6e 61 70 70 74 79 70 | 65 20 3d 20 31 0d 0a 6e |.napptyp|e = 1..n|
|000003f0| 61 75 74 6f 75 70 64 61 | 74 65 20 3d 20 31 0d 0a |autoupda|te = 1..|
|00000400| 6c 61 75 74 6f 61 64 64 | 66 69 6c 65 20 3d 20 2e |lautoadd|file = .|
|00000410| 54 2e 0d 0a 63 6d 75 6c | 74 69 6c 6f 63 6b 73 20 |T...cmul|tilocks |
|00000420| 3d 20 0d 0a 63 73 61 76 | 65 68 65 6c 70 20 3d 20 |= ..csav|ehelp = |
|00000430| 0d 0a 6e 62 6c 64 72 64 | 61 74 61 73 65 73 73 69 |..nbldrd|atasessi|
|00000440| 6f 6e 20 3d 20 30 0d 0a | 4e 61 6d 65 20 3d 20 22 |on = 0..|Name = "|
|00000450| 66 72 6d 41 70 70 42 75 | 69 6c 64 65 72 22 0d 0a |frmAppBu|ilder"..|
|00000460| 00 00 00 01 00 00 9b 62 | 50 52 4f 43 45 44 55 52 |.......b|PROCEDUR|
|00000470| 45 20 61 64 64 64 6f 63 | 0d 0a 4c 50 41 52 41 4d |E adddoc|..LPARAM|
|00000480| 45 54 45 52 20 63 46 69 | 6c 65 4e 61 6d 65 2c 20 |ETER cFi|leName, |
|00000490| 63 43 6c 61 73 73 4e 61 | 6d 65 2c 20 6c 4e 6f 73 |cClassNa|me, lNos|
|000004a0| 68 6f 77 2c 20 63 4d 65 | 74 61 54 79 70 65 0d 0a |how, cMe|taType..|
|000004b0| 0d 0a 2a 20 6c 4e 6f 53 | 68 6f 77 20 69 73 20 70 |..* lNoS|how is p|
|000004c0| 72 69 6d 61 72 69 6c 79 | 20 66 6f 72 20 44 61 74 |rimarily| for Dat|
|000004d0| 61 20 70 61 67 65 20 62 | 61 74 63 68 20 70 72 6f |a page b|atch pro|
|000004e0| 63 65 73 73 69 6e 67 0d | 0a 4c 4f 43 41 4c 20 63 |cessing.|.LOCAL c|
|000004f0| 45 78 74 2c 63 44 6f 63 | 54 79 70 65 0d 0a 0d 0a |Ext,cDoc|Type....|
|00000500| 49 46 20 21 54 48 49 53 | 2e 43 68 65 63 6b 50 72 |IF !THIS|.CheckPr|
|00000510| 6f 6a 65 63 74 28 29 0d | 0a 09 52 45 54 55 52 4e |oject().|..RETURN|
|00000520| 20 2e 46 2e 0d 0a 45 4e | 44 49 46 0d 0a 0d 0a 49 | .F...EN|DIF....I|
|00000530| 46 20 56 41 52 54 59 50 | 45 28 6d 2e 63 46 69 6c |F VARTYP|E(m.cFil|
|00000540| 65 4e 61 6d 65 29 23 22 | 43 22 20 4f 52 20 21 54 |eName)#"|C" OR !T|
|00000550| 48 49 53 2e 6c 46 72 61 | 6d 65 77 6f 72 6b 0d 0a |HIS.lFra|mework..|
|00000560| 09 52 45 54 55 52 4e 20 | 2e 46 2e 0d 0a 45 4e 44 |.RETURN |.F...END|
|00000570| 49 46 0d 0a 0d 0a 49 46 | 20 56 41 52 54 59 50 45 |IF....IF| VARTYPE|
|00000580| 28 54 48 49 53 2e 6c 41 | 75 74 6f 41 64 64 46 69 |(THIS.lA|utoAddFi|
|00000590| 6c 65 29 23 22 4c 22 0d | 0a 09 54 48 49 53 2e 6c |le)#"L".|..THIS.l|
|000005a0| 41 75 74 6f 41 64 64 46 | 69 6c 65 3d 2e 46 2e 0d |AutoAddF|ile=.F..|
|000005b0| 0a 45 4e 44 49 46 0d 0a | 0d 0a 63 45 58 54 20 3d |.ENDIF..|..cEXT =|
|000005c0| 20 55 50 50 45 52 28 4a | 55 53 54 45 58 54 28 6d | UPPER(J|USTEXT(m|
|000005d0| 2e 63 46 69 6c 65 4e 61 | 6d 65 29 29 0d 0a 49 46 |.cFileNa|me))..IF|
|000005e0| 20 21 6d 2e 6c 4e 6f 53 | 68 6f 77 20 41 4e 44 20 | !m.lNoS|how AND |
|000005f0| 21 49 4e 4c 49 53 54 28 | 55 50 50 45 52 28 63 45 |!INLIST(|UPPER(cE|
|00000600| 58 54 29 2c 22 46 52 58 | 22 2c 22 53 43 58 22 2c |XT),"FRX|","SCX",|
|00000610| 22 4c 42 58 22 29 0d 0a | 09 52 45 54 55 52 4e 0d |"LBX")..|.RETURN.|
|00000620| 0a 45 4e 44 49 46 0d 0a | 0d 0a 49 46 20 56 41 52 |.ENDIF..|..IF VAR|
|00000630| 54 59 50 45 28 6d 2e 63 | 4d 65 74 61 54 79 70 65 |TYPE(m.c|MetaType|
|00000640| 29 23 22 43 22 20 4f 52 | 20 21 49 4e 4c 49 53 54 |)#"C" OR| !INLIST|
|00000650| 28 6d 2e 63 4d 65 74 61 | 54 79 70 65 2c 22 52 22 |(m.cMeta|Type,"R"|
|00000660| 2c 22 46 22 2c 22 72 22 | 2c 22 66 22 29 0d 0a 09 |,"F","r"|,"f")...|
|00000670| 63 4d 65 74 61 54 79 70 | 65 20 3d 20 22 22 0d 0a |cMetaTyp|e = ""..|
|00000680| 45 4e 44 49 46 0d 0a 63 | 44 6f 63 54 79 70 65 20 |ENDIF..c|DocType |
|00000690| 3d 20 49 49 46 28 21 45 | 4d 50 54 59 28 63 4d 65 |= IIF(!E|MPTY(cMe|
|000006a0| 74 61 54 79 70 65 29 2c | 63 4d 65 74 61 54 79 70 |taType),|cMetaTyp|
|000006b0| 65 2c 49 49 46 28 49 4e | 4c 49 53 54 28 63 45 58 |e,IIF(IN|LIST(cEX|
|000006c0| 54 2c 22 46 52 58 22 2c | 22 4c 42 58 22 29 2c 22 |T,"FRX",|"LBX"),"|
|000006d0| 52 22 2c 22 46 22 29 29 | 0d 0a 0d 0a 49 46 20 6d |R","F"))|....IF m|
|000006e0| 2e 6c 4e 6f 53 68 6f 77 | 0d 0a 09 54 48 49 53 2e |.lNoShow|...THIS.|
|000006f0| 41 64 64 54 6f 4d 65 74 | 61 28 6d 2e 63 46 69 6c |AddToMet|a(m.cFil|
|00000700| 65 4e 61 6d 65 2c 6d 2e | 63 43 6c 61 73 73 4e 61 |eName,m.|cClassNa|
|00000710| 6d 65 2c 6d 2e 63 44 6f | 63 54 79 70 65 29 0d 0a |me,m.cDo|cType)..|
|00000720| 09 52 45 54 55 52 4e 0d | 0a 45 4e 44 49 46 0d 0a |.RETURN.|.ENDIF..|
|00000730| 0d 0a 49 46 20 21 54 48 | 49 53 2e 6c 41 75 74 6f |..IF !TH|IS.lAuto|
|00000740| 41 64 64 46 69 6c 65 20 | 41 4e 44 20 4d 45 53 53 |AddFile |AND MESS|
|00000750| 41 47 45 42 4f 58 28 43 | 5f 41 44 44 46 49 4c 45 |AGEBOX(C|_ADDFILE|
|00000760| 5f 4c 4f 43 2c 33 36 29 | 23 36 0d 0a 09 54 48 49 |_LOC,36)|#6...THI|
|00000770| 53 2e 55 70 64 61 74 65 | 44 6f 63 73 28 29 0d 0a |S.Update|Docs()..|
|00000780| 09 52 45 54 55 52 4e 20 | 2e 46 2e 0d 0a 45 4e 44 |.RETURN |.F...END|
|00000790| 49 46 0d 0a 0d 0a 54 48 | 49 53 2e 41 64 64 54 6f |IF....TH|IS.AddTo|
|000007a0| 4d 65 74 61 28 6d 2e 63 | 46 69 6c 65 4e 61 6d 65 |Meta(m.c|FileName|
|000007b0| 2c 6d 2e 63 43 6c 61 73 | 73 4e 61 6d 65 2c 6d 2e |,m.cClas|sName,m.|
|000007c0| 63 44 6f 63 54 79 70 65 | 29 0d 0a 0d 0a 2a 2a 2a |cDocType|)....***|
|000007d0| 20 55 70 64 61 74 65 20 | 6d 65 74 61 20 74 61 62 | Update |meta tab|
|000007e0| 6c 65 2e 0d 0a 54 48 49 | 53 2e 55 70 64 61 74 65 |le...THI|S.Update|
|000007f0| 44 6f 63 73 28 29 0d 0a | 0d 0a 2a 2a 2a 20 4e 65 |Docs()..|..*** Ne|
|00000800| 65 64 20 74 6f 20 75 70 | 64 61 74 65 20 46 6f 72 |ed to up|date For|
|00000810| 6d 2f 52 65 70 6f 72 74 | 20 6c 69 73 74 62 6f 78 |m/Report| listbox|
|00000820| 20 68 65 72 65 21 0d 0a | 44 4f 20 43 41 53 45 0d | here!..|DO CASE.|
|00000830| 0a 43 41 53 45 20 55 50 | 50 45 52 28 6d 2e 63 44 |.CASE UP|PER(m.cD|
|00000840| 6f 63 54 79 70 65 29 20 | 3d 20 22 46 22 0d 0a 09 |ocType) |= "F"...|
|00000850| 54 48 49 53 2e 70 66 31 | 2e 41 63 74 69 76 65 50 |THIS.pf1|.ActiveP|
|00000860| 61 67 65 20 3d 20 34 0d | 0a 43 41 53 45 20 55 50 |age = 4.|.CASE UP|
|00000870| 50 45 52 28 6d 2e 63 44 | 6f 63 54 79 70 65 29 20 |PER(m.cD|ocType) |
|00000880| 3d 20 22 52 22 0d 0a 09 | 54 48 49 53 2e 70 66 31 |= "R"...|THIS.pf1|
|00000890| 2e 41 63 74 69 76 65 50 | 61 67 65 20 3d 20 35 0d |.ActiveP|age = 5.|
|000008a0| 0a 45 4e 44 43 41 53 45 | 0d 0a 0d 0a 45 4e 44 50 |.ENDCASE|....ENDP|
|000008b0| 52 4f 43 0d 0a 50 52 4f | 43 45 44 55 52 45 20 61 |ROC..PRO|CEDURE a|
|000008c0| 64 64 74 6f 6d 65 74 61 | 0d 0a 4c 50 41 52 41 4d |ddtometa|..LPARAM|
|000008d0| 45 54 45 52 20 74 63 46 | 69 6c 65 4e 61 6d 65 2c |ETER tcF|ileName,|
|000008e0| 74 63 43 6c 61 73 73 4e | 61 6d 65 2c 74 63 44 6f |tcClassN|ame,tcDo|
|000008f0| 63 54 79 70 65 0d 0a 0d | 0a 4c 4f 43 41 4c 20 6e |cType...|.LOCAL n|
|00000900| 53 61 76 65 41 72 65 61 | 2c 20 63 44 6f 63 54 79 |SaveArea|, cDocTy|
|00000910| 70 65 2c 20 63 45 78 74 | 2c 20 63 44 6f 63 44 65 |pe, cExt|, cDocDe|
|00000920| 73 63 2c 20 6c 63 44 6f | 63 77 72 61 70 0d 0a 6e |sc, lcDo|cwrap..n|
|00000930| 53 61 76 65 41 72 65 61 | 20 3d 20 53 45 4c 45 43 |SaveArea| = SELEC|
|00000940| 54 28 29 0d 0a 63 45 78 | 74 20 3d 20 55 50 50 45 |T()..cEx|t = UPPE|
|00000950| 52 28 4a 55 53 54 45 58 | 54 28 6d 2e 74 63 46 69 |R(JUSTEX|T(m.tcFi|
|00000960| 6c 65 4e 61 6d 65 29 29 | 0d 0a 49 46 20 56 41 52 |leName))|..IF VAR|
|00000970| 54 59 50 45 28 74 63 44 | 6f 63 54 79 70 65 29 23 |TYPE(tcD|ocType)#|
|00000980| 22 43 22 20 4f 52 20 21 | 49 4e 4c 49 53 54 28 55 |"C" OR !|INLIST(U|
|00000990| 50 50 45 52 28 74 63 44 | 6f 63 54 79 70 65 29 2c |PPER(tcD|ocType),|
|000009a0| 22 52 22 2c 22 46 22 29 | 0d 0a 09 74 63 44 6f 63 |"R","F")|...tcDoc|
|000009b0| 54 79 70 65 3d 49 49 46 | 28 49 4e 4c 49 53 54 28 |Type=IIF|(INLIST(|
|000009c0| 63 45 58 54 2c 22 46 52 | 58 22 2c 22 4c 42 58 22 |cEXT,"FR|X","LBX"|
|000009d0| 29 2c 22 52 22 2c 22 46 | 22 29 0d 0a 45 4e 44 49 |),"R","F|")..ENDI|
|000009e0| 46 0d 0a 63 44 6f 63 54 | 79 70 65 20 3d 20 55 50 |F..cDocT|ype = UP|
|000009f0| 50 45 52 28 74 63 44 6f | 63 54 79 70 65 29 0d 0a |PER(tcDo|cType)..|
|00000a00| 49 46 20 56 41 52 54 59 | 50 45 28 74 63 43 6c 61 |IF VARTY|PE(tcCla|
|00000a10| 73 73 4e 61 6d 65 29 23 | 22 43 22 0d 0a 09 74 63 |ssName)#|"C"...tc|
|00000a20| 43 6c 61 73 73 4e 61 6d | 65 3d 22 22 0d 0a 45 4e |ClassNam|e=""..EN|
|00000a30| 44 49 46 09 0d 0a 0d 0a | 44 4f 20 43 41 53 45 0d |DIF.....|DO CASE.|
|00000a40| 0a 43 41 53 45 20 6d 2e | 63 44 6f 63 54 79 70 65 |.CASE m.|cDocType|
|00000a50| 3d 22 46 22 0d 0a 09 63 | 44 6f 63 44 65 73 63 20 |="F"...c|DocDesc |
|00000a60| 3d 20 43 5f 46 4f 52 4d | 44 45 53 43 53 55 46 46 |= C_FORM|DESCSUFF|
|00000a70| 49 58 5f 4c 4f 43 20 0d | 0a 43 41 53 45 20 6d 2e |IX_LOC .|.CASE m.|
|00000a80| 63 44 6f 63 54 79 70 65 | 3d 22 52 22 0d 0a 09 63 |cDocType|="R"...c|
|00000a90| 44 6f 63 44 65 73 63 20 | 3d 20 43 5f 52 50 54 44 |DocDesc |= C_RPTD|
|00000aa0| 45 53 43 53 55 46 46 49 | 58 5f 4c 4f 43 20 0d 0a |ESCSUFFI|X_LOC ..|
|00000ab0| 4f 54 48 45 52 57 49 53 | 45 0d 0a 09 52 45 54 55 |OTHERWIS|E...RETU|
|00000ac0| 52 4e 20 2e 46 2e 0d 0a | 45 4e 44 43 41 53 45 0d |RN .F...|ENDCASE.|
|00000ad0| 0a 0d 0a 6c 63 44 6f 63 | 77 72 61 70 20 3d 20 49 |...lcDoc|wrap = I|
|00000ae0| 49 46 28 41 54 43 28 6d | 2e 63 45 78 74 2c 22 50 |IF(ATC(m|.cExt,"P|
|00000af0| 52 47 2c 46 58 50 2c 41 | 50 50 2c 45 58 45 2c 4d |RG,FXP,A|PP,EXE,M|
|00000b00| 50 52 2c 4d 50 58 2c 51 | 50 52 2c 51 50 58 22 29 |PR,MPX,Q|PR,QPX")|
|00000b10| 23 30 2c 2e 54 2e 2c 2e | 46 2e 29 0d 0a 0d 0a 53 |#0,.T.,.|F.)....S|
|00000b20| 45 4c 45 43 54 20 61 70 | 70 62 6c 64 72 5f 6d 65 |ELECT ap|pbldr_me|
|00000b30| 74 61 0d 0a 0d 0a 2a 20 | 43 68 65 63 6b 20 74 6f |ta....* |Check to|
|00000b40| 20 73 65 65 20 69 66 20 | 69 74 65 6d 20 61 6c 72 | see if |item alr|
|00000b50| 65 61 64 79 20 65 78 69 | 73 74 73 2e 0d 0a 4c 4f |eady exi|sts...LO|
|00000b60| 43 41 54 45 20 46 4f 52 | 20 55 50 50 45 52 28 64 |CATE FOR| UPPER(d|
|00000b70| 6f 63 5f 74 79 70 65 29 | 20 3d 20 55 50 50 45 52 |oc_type)| = UPPER|
|00000b80| 28 63 44 6f 63 54 79 70 | 65 29 20 41 4e 44 20 3b |(cDocTyp|e) AND ;|
|00000b90| 0d 0a 09 4c 4f 57 45 52 | 28 64 6f 63 5f 65 78 65 |...LOWER|(doc_exe|
|00000ba0| 63 29 20 3d 20 4c 4f 57 | 45 52 28 4a 55 53 54 53 |c) = LOW|ER(JUSTS|
|00000bb0| 54 45 4d 28 6d 2e 74 63 | 46 69 6c 65 4e 61 6d 65 |TEM(m.tc|FileName|
|00000bc0| 29 29 20 3b 0d 0a 09 41 | 4e 44 20 4e 4f 54 20 44 |)) ;...A|ND NOT D|
|00000bd0| 45 4c 45 54 45 44 28 29 | 0d 0a 0d 0a 49 46 20 21 |ELETED()|....IF !|
|00000be0| 46 4f 55 4e 44 28 29 0d | 0a 09 49 4e 53 45 52 54 |FOUND().|..INSERT|
|00000bf0| 20 49 4e 54 4f 20 28 54 | 48 49 53 2e 63 4d 65 74 | INTO (T|HIS.cMet|
|00000c00| 61 44 42 46 29 20 3b 0d | 0a 09 09 28 64 6f 63 5f |aDBF) ;.|...(doc_|
|00000c10| 74 79 70 65 2c 20 64 6f | 63 5f 64 65 73 63 72 2c |type, do|c_descr,|
|00000c20| 20 64 6f 63 5f 65 78 65 | 63 2c 20 64 6f 63 5f 63 | doc_exe|c, doc_c|
|00000c30| 6c 61 73 73 2c 20 3b 0d | 0a 09 09 64 6f 63 5f 6e |lass, ;.|...doc_n|
|00000c40| 65 77 2c 20 64 6f 63 5f | 6f 70 65 6e 2c 20 64 6f |ew, doc_|open, do|
|00000c50| 63 5f 77 72 61 70 2c 20 | 64 6f 63 5f 67 6f 2c 20 |c_wrap, |doc_go, |
|00000c60| 64 6f 63 5f 6e 61 76 29 | 3b 0d 0a 09 20 09 56 41 |doc_nav)|;... .VA|
|00000c70| 4c 55 45 53 28 6d 2e 63 | 44 6f 63 54 79 70 65 2c |LUES(m.c|DocType,|
|00000c80| 20 3b 0d 0a 09 20 09 50 | 52 4f 50 45 52 28 49 49 | ;... .P|ROPER(II|
|00000c90| 46 28 21 45 4d 50 54 59 | 28 74 63 43 6c 61 73 73 |F(!EMPTY|(tcClass|
|00000ca0| 4e 61 6d 65 29 2c 74 63 | 43 6c 61 73 73 4e 61 6d |Name),tc|ClassNam|
|00000cb0| 65 2c 4a 55 53 54 53 54 | 45 4d 28 6d 2e 74 63 46 |e,JUSTST|EM(m.tcF|
|00000cc0| 69 6c 65 4e 61 6d 65 29 | 29 29 2b 6d 2e 63 44 6f |ileName)|))+m.cDo|
|00000cd0| 63 44 65 73 63 2c 20 3b | 0d 0a 09 20 09 4c 4f 57 |cDesc, ;|... .LOW|
|00000ce0| 45 52 28 4a 55 53 54 53 | 54 45 4d 28 6d 2e 74 63 |ER(JUSTS|TEM(m.tc|
|00000cf0| 46 69 6c 65 4e 61 6d 65 | 29 29 2c 20 4c 4f 57 45 |FileName|)), LOWE|
|00000d00| 52 28 74 63 43 6c 61 73 | 73 4e 61 6d 65 29 2c 3b |R(tcClas|sName),;|
|00000d10| 0d 0a 09 20 09 2e 54 2e | 2c 20 2e 54 2e 2c 20 6c |... ..T.|, .T., l|
|00000d20| 63 44 6f 63 77 72 61 70 | 2c 20 2e 54 2e 2c 20 2e |cDocwrap|, .T., .|
|00000d30| 54 2e 29 0d 0a 0d 0a 09 | 49 46 20 55 53 45 44 28 |T.).....|IF USED(|
|00000d40| 22 41 50 50 42 4c 44 52 | 5f 4d 45 54 41 22 29 0d |"APPBLDR|_META").|
|00000d50| 0a 09 09 53 45 4c 45 43 | 54 20 61 70 70 62 6c 64 |...SELEC|T appbld|
|00000d60| 72 5f 6d 65 74 61 0d 0a | 09 09 54 41 42 4c 45 55 |r_meta..|..TABLEU|
|00000d70| 50 44 41 54 45 28 30 29 | 09 26 26 6f 6e 6c 79 20 |PDATE(0)|.&&only |
|00000d80| 63 6f 6d 6d 69 74 20 6e | 65 77 20 72 65 63 6f 72 |commit n|ew recor|
|00000d90| 64 0d 0a 09 45 4e 44 49 | 46 0d 0a 45 4e 44 49 46 |d...ENDI|F..ENDIF|
|00000da0| 0d 0a 0d 0a 53 45 4c 45 | 43 54 20 28 6d 2e 6e 53 |....SELE|CT (m.nS|
|00000db0| 61 76 65 41 72 65 61 29 | 0d 0a 45 4e 44 50 52 4f |aveArea)|..ENDPRO|
|00000dc0| 43 0d 0a 50 52 4f 43 45 | 44 55 52 45 20 73 65 74 |C..PROCE|DURE set|
|00000dd0| 75 70 66 72 61 6d 65 77 | 6f 72 6b 0d 0a 4c 4f 43 |upframew|ork..LOC|
|00000de0| 41 4c 20 61 54 6d 70 2c | 6c 63 50 72 6f 6a 4e 61 |AL aTmp,|lcProjNa|
|00000df0| 6d 65 0d 0a 0d 0a 2a 43 | 68 65 63 6b 20 69 66 20 |me....*C|heck if |
|00000e00| 75 73 65 72 20 68 61 73 | 20 6f 77 6e 20 63 75 73 |user has| own cus|
|00000e10| 74 6f 6d 20 70 72 6f 6a | 65 63 74 20 68 6f 6f 6b |tom proj|ect hook|
|00000e20| 20 61 6c 72 65 61 64 79 | 20 69 6e 73 74 61 6c 6c | already| install|
|00000e30| 65 64 2e 0d 0a 49 46 20 | 21 45 4d 50 54 59 28 54 |ed...IF |!EMPTY(T|
|00000e40| 48 49 53 2e 6f 50 72 6f | 6a 65 63 74 2e 50 72 6f |HIS.oPro|ject.Pro|
|00000e50| 6a 65 63 74 48 6f 6f 6b | 4c 69 62 72 61 72 79 29 |jectHook|Library)|
|00000e60| 20 41 4e 44 3b 0d 0a 09 | 41 54 43 28 41 50 50 48 | AND;...|ATC(APPH|
|00000e70| 4f 4f 4b 5f 46 49 4c 45 | 2c 54 48 49 53 2e 6f 50 |OOK_FILE|,THIS.oP|
|00000e80| 72 6f 6a 65 63 74 2e 50 | 72 6f 6a 65 63 74 48 6f |roject.P|rojectHo|
|00000e90| 6f 6b 4c 69 62 72 61 72 | 79 29 3d 30 0d 0a 09 52 |okLibrar|y)=0...R|
|00000ea0| 45 54 55 52 4e 0d 0a 45 | 4e 44 49 46 0d 0a 0d 0a |ETURN..E|NDIF....|
|00000eb0| 44 4f 20 43 41 53 45 0d | 0a 43 41 53 45 20 46 49 |DO CASE.|.CASE FI|
|00000ec0| 4c 45 28 54 48 49 53 2e | 63 48 6f 6f 6b 46 69 6c |LE(THIS.|cHookFil|
|00000ed0| 65 29 20 41 4e 44 20 21 | 45 4d 50 54 59 28 54 48 |e) AND !|EMPTY(TH|
|00000ee0| 49 53 2e 63 48 6f 6f 6b | 43 6c 61 73 73 29 0d 0a |IS.cHook|Class)..|
|00000ef0| 09 2a 20 55 73 65 72 20 | 70 72 6f 76 69 64 69 6e |.* User |providin|
|00000f00| 67 20 6f 77 6e 20 63 6c | 61 73 73 6c 69 62 20 61 |g own cl|asslib a|
|00000f10| 6e 64 20 63 6c 61 73 73 | 0d 0a 43 41 53 45 20 46 |nd class|..CASE F|
|00000f20| 49 4c 45 28 48 4f 4d 45 | 28 29 2b 22 57 49 5a 41 |ILE(HOME|()+"WIZA|
|00000f30| 52 44 53 5c 22 2b 41 50 | 50 48 4f 4f 4b 5f 46 49 |RDS\"+AP|PHOOK_FI|
|00000f40| 4c 45 29 0d 0a 09 54 48 | 49 53 2e 63 48 6f 6f 6b |LE)...TH|IS.cHook|
|00000f50| 46 69 6c 65 20 3d 20 48 | 4f 4d 45 28 29 2b 22 57 |File = H|OME()+"W|
|00000f60| 49 5a 41 52 44 53 5c 22 | 2b 41 50 50 48 4f 4f 4b |IZARDS\"|+APPHOOK|
|00000f70| 5f 46 49 4c 45 0d 0a 09 | 54 48 49 53 2e 63 48 6f |_FILE...|THIS.cHo|
|00000f80| 6f 6b 43 6c 61 73 73 20 | 3d 20 41 50 50 48 4f 4f |okClass |= APPHOO|
|00000f90| 4b 5f 43 4c 41 53 53 0d | 0a 43 41 53 45 20 46 49 |K_CLASS.|.CASE FI|
|00000fa0| 4c 45 28 48 4f 4d 45 28 | 29 2b 41 50 50 48 4f 4f |LE(HOME(|)+APPHOO|
|00000fb0| 4b 5f 46 49 4c 45 29 0d | 0a 09 54 48 49 53 2e 63 |K_FILE).|..THIS.c|
|00000fc0| 48 6f 6f 6b 46 69 6c 65 | 20 3d 20 48 4f 4d 45 28 |HookFile| = HOME(|
|00000fd0| 29 2b 41 50 50 48 4f 4f | 4b 5f 46 49 4c 45 0d 0a |)+APPHOO|K_FILE..|
|00000fe0| 09 54 48 49 53 2e 63 48 | 6f 6f 6b 43 6c 61 73 73 |.THIS.cH|ookClass|
|00000ff0| 20 3d 20 41 50 50 48 4f | 4f 4b 5f 43 4c 41 53 53 | = APPHO|OK_CLASS|
|00001000| 0d 0a 4f 54 48 45 52 57 | 49 53 45 0d 0a 09 44 49 |..OTHERW|ISE...DI|
|00001010| 4d 45 4e 53 49 4f 4e 20 | 61 54 6d 70 5b 31 5d 0d |MENSION |aTmp[1].|
|00001020| 0a 09 41 47 45 54 43 4c | 41 53 53 28 61 54 6d 70 |..AGETCL|ASS(aTmp|
|00001030| 2c 27 61 70 70 68 6f 6f | 6b 27 2c 27 61 70 70 68 |,'apphoo|k','apph|
|00001040| 6f 6f 6b 27 2c 43 5f 53 | 45 4c 45 43 54 48 4f 4f |ook',C_S|ELECTHOO|
|00001050| 4b 5f 4c 4f 43 29 0d 0a | 09 54 48 49 53 2e 63 48 |K_LOC)..|.THIS.cH|
|00001060| 6f 6f 6b 46 69 6c 65 20 | 3d 20 61 54 6d 70 5b 31 |ookFile |= aTmp[1|
|00001070| 5d 20 0d 0a 09 49 46 20 | 45 4d 50 54 59 28 61 54 |] ...IF |EMPTY(aT|
|00001080| 6d 70 5b 31 5d 20 29 20 | 4f 52 20 21 46 49 4c 45 |mp[1] ) |OR !FILE|
|00001090| 28 61 54 6d 70 5b 31 5d | 29 0d 0a 09 09 54 48 49 |(aTmp[1]|)....THI|
|000010a0| 53 2e 63 48 6f 6f 6b 46 | 69 6c 65 20 3d 20 22 22 |S.cHookF|ile = ""|
|000010b0| 0d 0a 09 09 54 48 49 53 | 2e 63 48 6f 6f 6b 43 6c |....THIS|.cHookCl|
|000010c0| 61 73 73 20 3d 20 22 22 | 0d 0a 09 09 52 45 54 55 |ass = ""|....RETU|
|000010d0| 52 4e 20 2e 46 2e 0d 0a | 09 45 4e 44 49 46 0d 0a |RN .F...|.ENDIF..|
|000010e0| 09 54 48 49 53 2e 63 48 | 6f 6f 6b 46 69 6c 65 20 |.THIS.cH|ookFile |
|000010f0| 3d 20 61 54 6d 70 5b 31 | 5d 20 0d 0a 09 54 48 49 |= aTmp[1|] ...THI|
|00001100| 53 2e 63 48 6f 6f 6b 43 | 6c 61 73 73 20 3d 20 61 |S.cHookC|lass = a|
|00001110| 54 6d 70 5b 32 5d 20 0d | 0a 45 4e 44 43 41 53 45 |Tmp[2] .|.ENDCASE|
|00001120| 0d 0a 0d 0a 54 48 49 53 | 2e 6f 50 72 6f 6a 65 63 |....THIS|.oProjec|
|00001130| 74 2e 50 72 6f 6a 65 63 | 74 48 6f 6f 6b 4c 69 62 |t.Projec|tHookLib|
|00001140| 72 61 72 79 20 3d 20 54 | 48 49 53 2e 63 48 6f 6f |rary = T|HIS.cHoo|
|00001150| 6b 46 69 6c 65 20 0d 0a | 54 48 49 53 2e 6f 50 72 |kFile ..|THIS.oPr|
|00001160| 6f 6a 65 63 74 2e 50 72 | 6f 6a 65 63 74 48 6f 6f |oject.Pr|ojectHoo|
|00001170| 6b 43 6c 61 73 73 20 3d | 20 54 48 49 53 2e 63 48 |kClass =| THIS.cH|
|00001180| 6f 6f 6b 43 6c 61 73 73 | 0d 0a 4d 45 53 53 41 47 |ookClass|..MESSAG|
|00001190| 45 42 4f 58 28 43 5f 49 | 4e 53 54 41 4c 4c 46 52 |EBOX(C_I|NSTALLFR|
|000011a0| 41 4d 45 57 4f 52 4b 32 | 5f 4c 4f 43 29 0d 0a 0d |AMEWORK2|_LOC)...|
|000011b0| 0a 45 4e 44 50 52 4f 43 | 0d 0a 50 52 4f 43 45 44 |.ENDPROC|..PROCED|
|000011c0| 55 52 45 20 6c 66 72 61 | 6d 65 77 6f 72 6b 5f 61 |URE lfra|mework_a|
|000011d0| 63 63 65 73 73 0d 0a 4c | 4f 43 41 4c 20 6e 53 61 |ccess..L|OCAL nSa|
|000011e0| 76 65 41 72 65 61 2c 6c | 56 61 6c 69 64 48 6f 6f |veArea,l|ValidHoo|
|000011f0| 6b 2c 6c 56 61 6c 69 64 | 4d 65 74 61 2c 6c 50 72 |k,lValid|Meta,lPr|
|00001200| 6f 6a 65 63 74 4e 6f 74 | 52 65 67 69 73 74 65 72 |ojectNot|Register|
|00001210| 65 64 0d 0a 6e 53 61 76 | 65 41 72 65 61 20 3d 20 |ed..nSav|eArea = |
|00001220| 53 45 4c 45 43 54 28 29 | 0d 0a 0d 0a 49 46 20 56 |SELECT()|....IF V|
|00001230| 41 52 54 59 50 45 28 54 | 48 49 53 2e 6c 46 72 61 |ARTYPE(T|HIS.lFra|
|00001240| 6d 65 77 6f 72 6b 29 23 | 22 4c 22 0d 0a 0d 0a 09 |mework)#|"L".....|
|00001250| 2a 20 41 6c 6c 6f 77 20 | 75 73 65 72 20 74 6f 20 |* Allow |user to |
|00001260| 73 70 65 63 69 66 79 20 | 61 6c 74 65 72 6e 61 74 |specify |alternat|
|00001270| 69 76 65 20 6d 65 74 61 | 20 74 61 62 6c 65 0d 0a |ive meta| table..|
|00001280| 09 49 46 20 45 4d 50 54 | 59 28 54 48 49 53 2e 63 |.IF EMPT|Y(THIS.c|
|00001290| 4d 65 74 61 44 42 46 29 | 0d 0a 09 09 54 48 49 53 |MetaDBF)|....THIS|
|000012a0| 2e 63 4d 65 74 61 44 42 | 46 20 3d 20 41 44 44 42 |.cMetaDB|F = ADDB|
|000012b0| 53 28 4a 55 53 54 50 41 | 54 48 28 54 48 49 53 2e |S(JUSTPA|TH(THIS.|
|000012c0| 6f 50 72 6f 6a 65 63 74 | 2e 4e 61 6d 65 29 29 2b |oProject|.Name))+|
|000012d0| 3b 0d 0a 09 09 09 4a 55 | 53 54 53 54 45 4d 28 54 |;.....JU|STSTEM(T|
|000012e0| 48 49 53 2e 6f 50 72 6f | 6a 65 63 74 2e 4e 61 6d |HIS.oPro|ject.Nam|
|000012f0| 65 29 2b 41 50 50 5f 42 | 55 49 4c 44 45 52 5f 46 |e)+APP_B|UILDER_F|
|00001300| 49 4c 45 5f 53 55 46 46 | 49 58 2b 22 2e 44 42 46 |ILE_SUFF|IX+".DBF|
|00001310| 22 0d 0a 09 45 4e 44 49 | 46 0d 0a 0d 0a 09 6c 50 |"...ENDI|F.....lP|
|00001320| 72 6f 6a 65 63 74 4e 6f | 74 52 65 67 69 73 74 65 |rojectNo|tRegiste|
|00001330| 72 65 64 20 3d 20 54 48 | 49 53 2e 55 70 64 61 74 |red = TH|IS.Updat|
|00001340| 65 50 72 6f 6a 65 63 74 | 73 4c 69 73 74 28 29 0d |eProject|sList().|
|00001350| 0a 09 6c 56 61 6c 69 64 | 48 6f 6f 6b 20 3d 20 54 |..lValid|Hook = T|
|00001360| 59 50 45 28 22 54 48 49 | 53 2e 6f 50 72 6f 6a 65 |YPE("THI|S.oProje|
|00001370| 63 74 2e 50 72 6f 6a 65 | 63 74 48 6f 6f 6b 22 29 |ct.Proje|ctHook")|
|00001380| 3d 22 4f 22 20 41 4e 44 | 20 41 54 43 28 41 50 50 |="O" AND| ATC(APP|
|00001390| 48 4f 4f 4b 5f 46 49 4c | 45 2c 54 48 49 53 2e 6f |HOOK_FIL|E,THIS.o|
|000013a0| 50 72 6f 6a 65 63 74 2e | 50 72 6f 6a 65 63 74 48 |Project.|ProjectH|
|000013b0| 6f 6f 6b 4c 69 62 72 61 | 72 79 29 23 30 0d 0a 09 |ookLibra|ry)#0...|
|000013c0| 6c 56 61 6c 69 64 4d 65 | 74 61 20 3d 20 54 48 49 |lValidMe|ta = THI|
|000013d0| 53 2e 43 68 65 63 6b 4d | 65 74 61 28 29 20 41 4e |S.CheckM|eta() AN|
|000013e0| 44 20 21 45 4d 50 54 59 | 28 54 48 49 53 2e 63 4d |D !EMPTY|(THIS.cM|
|000013f0| 65 74 61 44 42 46 29 0d | 0a 0d 0a 09 54 48 49 53 |etaDBF).|....THIS|
|00001400| 2e 6c 46 72 61 6d 65 77 | 6f 72 6b 20 3d 20 2e 54 |.lFramew|ork = .T|
|00001410| 2e 0d 0a 09 44 4f 20 43 | 41 53 45 0d 0a 09 43 41 |....DO C|ASE...CA|
|00001420| 53 45 20 45 4d 50 54 59 | 28 54 48 49 53 2e 63 4d |SE EMPTY|(THIS.cM|
|00001430| 65 74 61 44 42 46 29 09 | 26 26 20 68 61 73 20 74 |etaDBF).|&& has t|
|00001440| 61 62 6c 65 20 62 75 74 | 20 69 73 20 77 72 6f 6e |able but| is wron|
|00001450| 67 20 73 74 72 75 63 74 | 75 72 65 20 2d 2d 20 66 |g struct|ure -- f|
|00001460| 61 69 72 6c 79 20 72 61 | 72 65 0d 0a 09 09 4d 45 |airly ra|re....ME|
|00001470| 53 53 41 47 45 42 4f 58 | 28 43 5f 49 4e 53 54 41 |SSAGEBOX|(C_INSTA|
|00001480| 4c 4c 46 52 41 4d 45 57 | 4f 52 4b 34 5f 4c 4f 43 |LLFRAMEW|ORK4_LOC|
|00001490| 29 0d 0a 09 09 54 48 49 | 53 2e 6c 46 72 61 6d 65 |)....THI|S.lFrame|
|000014a0| 77 6f 72 6b 20 3d 20 2e | 46 2e 0d 0a 09 43 41 53 |work = .|F....CAS|
|000014b0| 45 20 21 6c 50 72 6f 6a | 65 63 74 4e 6f 74 52 65 |E !lProj|ectNotRe|
|000014c0| 67 69 73 74 65 72 65 64 | 09 26 26 70 72 6f 6a 65 |gistered|.&&proje|
|000014d0| 63 74 20 61 6c 72 65 61 | 64 79 20 68 61 6e 64 6c |ct alrea|dy handl|
|000014e0| 65 64 0d 0a 09 09 54 48 | 49 53 2e 6c 46 72 61 6d |ed....TH|IS.lFram|
|000014f0| 65 77 6f 72 6b 20 3d 20 | 6c 56 61 6c 69 64 4d 65 |ework = |lValidMe|
|00001500| 74 61 0d 0a 09 43 41 53 | 45 20 21 6c 56 61 6c 69 |ta...CAS|E !lVali|
|00001510| 64 48 6f 6f 6b 20 41 4e | 44 20 21 45 4d 50 54 59 |dHook AN|D !EMPTY|
|00001520| 28 54 48 49 53 2e 6f 50 | 72 6f 6a 65 63 74 2e 50 |(THIS.oP|roject.P|
|00001530| 72 6f 6a 65 63 74 48 6f | 6f 6b 4c 69 62 72 61 72 |rojectHo|okLibrar|
|00001540| 79 29 09 26 26 20 68 61 | 73 20 63 75 73 74 6f 6d |y).&& ha|s custom|
|00001550| 20 68 6f 6f 6b 0d 0a 09 | 09 57 41 49 54 20 57 49 | hook...|.WAIT WI|
|00001560| 4e 44 4f 57 20 43 5f 49 | 4e 53 54 41 4c 4c 46 52 |NDOW C_I|NSTALLFR|
|00001570| 41 4d 45 57 4f 52 4b 33 | 5f 4c 4f 43 20 54 49 4d |AMEWORK3|_LOC TIM|
|00001580| 45 4f 55 54 20 32 0d 0a | 09 43 41 53 45 20 21 6c |EOUT 2..|.CASE !l|
|00001590| 56 61 6c 69 64 48 6f 6f | 6b 20 41 4e 44 20 21 6c |ValidHoo|k AND !l|
|000015a0| 56 61 6c 69 64 4d 65 74 | 61 09 09 09 26 26 20 6e |ValidMet|a...&& n|
|000015b0| 6f 20 70 72 6f 6a 65 63 | 74 20 68 6f 6f 6b 20 6f |o projec|t hook o|
|000015c0| 72 20 6d 65 74 61 20 69 | 6e 73 74 61 6c 6c 65 64 |r meta i|nstalled|
|000015d0| 0d 0a 09 09 54 48 49 53 | 2e 6c 46 72 61 6d 65 77 |....THIS|.lFramew|
|000015e0| 6f 72 6b 20 3d 20 4d 45 | 53 53 41 47 45 42 4f 58 |ork = ME|SSAGEBOX|
|000015f0| 28 43 5f 49 4e 53 54 41 | 4c 4c 46 52 41 4d 45 57 |(C_INSTA|LLFRAMEW|
|00001600| 4f 52 4b 5f 4c 4f 43 2c | 33 36 29 3d 36 20 41 4e |ORK_LOC,|36)=6 AN|
|00001610| 44 20 54 48 49 53 2e 53 | 65 74 75 70 46 72 61 6d |D THIS.S|etupFram|
|00001620| 65 57 6f 72 6b 28 29 0d | 0a 09 43 41 53 45 20 21 |eWork().|..CASE !|
|00001630| 6c 56 61 6c 69 64 48 6f | 6f 6b 20 09 09 09 09 09 |lValidHo|ok .....|
|00001640| 09 09 26 26 20 68 61 73 | 20 76 61 6c 69 64 20 6d |..&& has| valid m|
|00001650| 65 74 61 20 74 61 62 6c | 65 20 62 75 74 20 6e 6f |eta tabl|e but no|
|00001660| 20 68 6f 6f 6b 73 0d 0a | 09 09 54 48 49 53 2e 6c | hooks..|..THIS.l|
|00001670| 46 72 61 6d 65 77 6f 72 | 6b 20 3d 20 4d 45 53 53 |Framewor|k = MESS|
|00001680| 41 47 45 42 4f 58 28 43 | 5f 49 4e 53 54 41 4c 4c |AGEBOX(C|_INSTALL|
|00001690| 46 52 41 4d 45 57 4f 52 | 4b 31 5f 4c 4f 43 2c 33 |FRAMEWOR|K1_LOC,3|
|000016a0| 36 29 3d 36 20 41 4e 44 | 20 54 48 49 53 2e 53 65 |6)=6 AND| THIS.Se|
|000016b0| 74 75 70 46 72 61 6d 65 | 57 6f 72 6b 28 29 0d 0a |tupFrame|Work()..|
|000016c0| 09 43 41 53 45 20 21 6c | 56 61 6c 69 64 4d 65 74 |.CASE !l|ValidMet|
|000016d0| 61 09 26 26 20 68 61 73 | 20 76 61 6c 69 64 20 68 |a.&& has| valid h|
|000016e0| 6f 6f 6b 73 20 62 75 74 | 20 6e 6f 20 74 61 62 6c |ooks but| no tabl|
|000016f0| 65 0d 0a 09 09 54 48 49 | 53 2e 6c 46 72 61 6d 65 |e....THI|S.lFrame|
|00001700| 77 6f 72 6b 20 3d 20 4d | 45 53 53 41 47 45 42 4f |work = M|ESSAGEBO|
|00001710| 58 28 43 5f 49 4e 53 54 | 41 4c 4c 46 52 41 4d 45 |X(C_INST|ALLFRAME|
|00001720| 57 4f 52 4b 5f 4c 4f 43 | 2c 33 36 29 3d 36 0d 0a |WORK_LOC|,36)=6..|
|00001730| 09 45 4e 44 43 41 53 45 | 0d 0a 0d 0a 09 49 46 20 |.ENDCASE|.....IF |
|00001740| 54 48 49 53 2e 6c 46 72 | 61 6d 65 77 6f 72 6b 0d |THIS.lFr|amework.|
|00001750| 0a 09 09 49 46 20 21 46 | 49 4c 45 28 54 48 49 53 |...IF !F|ILE(THIS|
|00001760| 2e 63 4d 65 74 61 44 42 | 46 29 0d 0a 09 09 09 54 |.cMetaDB|F).....T|
|00001770| 48 49 53 2e 4d 61 6b 65 | 4d 65 74 61 54 61 62 6c |HIS.Make|MetaTabl|
|00001780| 65 28 29 0d 0a 09 09 09 | 54 48 49 53 2e 6f 50 72 |e().....|THIS.oPr|
|00001790| 6f 6a 65 63 74 2e 46 69 | 6c 65 73 2e 41 64 64 28 |oject.Fi|les.Add(|
|000017a0| 54 48 49 53 2e 63 4d 65 | 74 61 44 42 46 29 0d 0a |THIS.cMe|taDBF)..|
|000017b0| 09 09 45 4e 44 49 46 0d | 0a 09 09 49 46 20 21 54 |..ENDIF.|...IF !T|
|000017c0| 48 49 53 2e 4f 50 45 4e | 4d 45 54 41 28 29 0d 0a |HIS.OPEN|META()..|
|000017d0| 09 09 09 54 48 49 53 2e | 63 4d 65 74 61 44 42 46 |...THIS.|cMetaDBF|
|000017e0| 3d 22 22 0d 0a 09 09 45 | 4e 44 49 46 0d 0a 09 45 |=""....E|NDIF...E|
|000017f0| 4c 53 45 0d 0a 09 09 54 | 48 49 53 2e 63 4d 65 74 |LSE....T|HIS.cMet|
|00001800| 61 44 42 46 20 3d 20 22 | 22 0d 0a 09 45 4e 44 49 |aDBF = "|"...ENDI|
|00001810| 46 0d 0a 0d 0a 45 4e 44 | 49 46 0d 0a 53 45 4c 45 |F....END|IF..SELE|
|00001820| 43 54 20 28 6d 2e 6e 53 | 61 76 65 41 72 65 61 29 |CT (m.nS|aveArea)|
|00001830| 0d 0a 52 45 54 55 52 4e | 20 54 48 49 53 2e 6c 46 |..RETURN| THIS.lF|
|00001840| 72 61 6d 65 77 6f 72 6b | 0d 0a 0d 0a 45 4e 44 50 |ramework|....ENDP|
|00001850| 52 4f 43 0d 0a 50 52 4f | 43 45 44 55 52 45 20 6d |ROC..PRO|CEDURE m|
|00001860| 61 6b 65 64 61 74 61 64 | 6f 63 73 0d 0a 50 52 49 |akedatad|ocs..PRI|
|00001870| 56 41 54 45 20 6c 6f 57 | 69 7a 0d 0a 4c 4f 43 41 |VATE loW|iz..LOCA|
|00001880| 4c 20 6e 53 61 76 65 41 | 72 65 61 2c 20 6c 63 46 |L nSaveA|rea, lcF|
|00001890| 69 6c 65 2c 20 6c 63 41 | 6c 69 61 73 2c 20 61 46 |ile, lcA|lias, aF|
|000018a0| 69 6c 65 73 2c 20 6c 63 | 50 72 6f 6a 4e 61 6d 65 |iles, lc|ProjName|
|000018b0| 2c 6c 63 4f 75 74 46 69 | 6c 65 0d 0a 4c 4f 43 41 |,lcOutFi|le..LOCA|
|000018c0| 4c 20 6c 63 50 61 74 68 | 2c 20 6c 63 44 61 74 61 |L lcPath|, lcData|
|000018d0| 46 69 6c 65 2c 20 6c 63 | 46 6f 72 6d 73 50 61 74 |File, lc|FormsPat|
|000018e0| 68 2c 20 6c 63 52 65 70 | 6f 72 74 73 50 61 74 68 |h, lcRep|ortsPath|
|000018f0| 2c 20 63 4f 6c 64 53 61 | 66 65 2c 20 69 0d 0a 0d |, cOldSa|fe, i...|
|00001900| 0a 49 46 20 56 41 52 54 | 59 50 45 28 54 48 49 53 |.IF VART|YPE(THIS|
|00001910| 2e 6f 50 72 6f 6a 65 63 | 74 29 23 22 4f 22 0d 0a |.oProjec|t)#"O"..|
|00001920| 09 52 45 54 55 52 4e 20 | 2e 46 2e 0d 0a 45 4e 44 |.RETURN |.F...END|
|00001930| 49 46 0d 0a 0d 0a 49 46 | 20 56 41 52 54 59 50 45 |IF....IF| VARTYPE|
|00001940| 28 54 48 49 53 2e 6f 50 | 72 6f 6a 65 63 74 2e 50 |(THIS.oP|roject.P|
|00001950| 72 6f 6a 65 63 74 48 6f | 6f 6b 29 3d 22 4f 22 20 |rojectHo|ok)="O" |
|00001960| 41 4e 44 3b 0d 0a 20 50 | 45 4d 53 54 41 54 55 53 |AND;.. P|EMSTATUS|
|00001970| 28 54 48 49 53 2e 6f 50 | 72 6f 6a 65 63 74 2e 50 |(THIS.oP|roject.P|
|00001980| 72 6f 6a 65 63 74 48 6f | 6f 6b 2c 22 6c 42 79 50 |rojectHo|ok,"lByP|
|00001990| 61 73 73 42 75 69 6c 64 | 65 72 22 2c 35 29 0d 0a |assBuild|er",5)..|
|000019a0| 09 54 48 49 53 2e 6f 50 | 72 6f 6a 65 63 74 2e 50 |.THIS.oP|roject.P|
|000019b0| 72 6f 6a 65 63 74 48 6f | 6f 6b 2e 6c 42 79 50 61 |rojectHo|ok.lByPa|
|000019c0| 73 73 42 75 69 6c 64 65 | 72 20 3d 20 2e 54 2e 0d |ssBuilde|r = .T..|
|000019d0| 0a 45 4e 44 49 46 0d 0a | 0d 0a 44 49 4d 45 4e 53 |.ENDIF..|..DIMENS|
|000019e0| 49 4f 4e 20 61 46 69 6c | 65 73 5b 31 5d 0d 0a 6e |ION aFil|es[1]..n|
|000019f0| 53 61 76 65 41 72 65 61 | 20 3d 20 53 45 4c 45 43 |SaveArea| = SELEC|
|00001a00| 54 28 29 0d 0a 6c 63 50 | 72 6f 6a 4e 61 6d 65 20 |T()..lcP|rojName |
|00001a10| 3d 20 54 48 49 53 2e 6f | 50 72 6f 6a 65 63 74 2e |= THIS.o|Project.|
|00001a20| 4e 61 6d 65 0d 0a 6c 63 | 50 61 74 68 20 3d 20 41 |Name..lc|Path = A|
|00001a30| 44 44 42 53 28 4a 55 53 | 54 50 41 54 48 28 6c 63 |DDBS(JUS|TPATH(lc|
|00001a40| 50 72 6f 6a 4e 61 6d 65 | 29 29 0d 0a 6c 63 46 6f |ProjName|))..lcFo|
|00001a50| 72 6d 73 50 61 74 68 20 | 3d 20 49 49 46 28 41 44 |rmsPath |= IIF(AD|
|00001a60| 49 52 28 61 46 69 6c 65 | 73 2c 6d 2e 6c 63 50 61 |IR(aFile|s,m.lcPa|
|00001a70| 74 68 2b 43 5f 46 4f 52 | 4d 53 46 4f 4c 44 45 52 |th+C_FOR|MSFOLDER|
|00001a80| 2c 22 44 22 29 3e 30 2c | 3b 0d 0a 09 41 44 44 42 |,"D")>0,|;...ADDB|
|00001a90| 53 28 6d 2e 6c 63 50 61 | 74 68 2b 43 5f 46 4f 52 |S(m.lcPa|th+C_FOR|
|00001aa0| 4d 53 46 4f 4c 44 45 52 | 29 2c 6d 2e 6c 63 50 61 |MSFOLDER|),m.lcPa|
|00001ab0| 74 68 29 0d 0a 6c 63 52 | 65 70 6f 72 74 73 50 61 |th)..lcR|eportsPa|
|00001ac0| 74 68 20 3d 20 49 49 46 | 28 41 44 49 52 28 61 46 |th = IIF|(ADIR(aF|
|00001ad0| 69 6c 65 73 2c 6d 2e 6c | 63 50 61 74 68 2b 43 5f |iles,m.l|cPath+C_|
|00001ae0| 52 45 50 4f 52 54 53 46 | 4f 4c 44 45 52 2c 22 44 |REPORTSF|OLDER,"D|
|00001af0| 22 29 3e 30 2c 3b 0d 0a | 09 41 44 44 42 53 28 6d |")>0,;..|.ADDBS(m|
|00001b00| 2e 6c 63 50 61 74 68 2b | 43 5f 52 45 50 4f 52 54 |.lcPath+|C_REPORT|
|00001b10| 53 46 4f 4c 44 45 52 29 | 2c 6d 2e 6c 63 50 61 74 |SFOLDER)|,m.lcPat|
|00001b20| 68 29 0d 0a 6c 6f 57 69 | 7a 20 3d 20 54 48 49 53 |h)..loWi|z = THIS|
|00001b30| 2e 47 65 74 57 69 7a 53 | 74 79 6c 65 52 65 66 28 |.GetWizS|tyleRef(|
|00001b40| 29 0d 0a 0d 0a 53 45 4c | 45 43 54 20 77 69 7a 64 |)....SEL|ECT wizd|
|00001b50| 6f 63 73 0d 0a 47 4f 20 | 54 4f 50 0d 0a 0d 0a 44 |ocs..GO |TOP....D|
|00001b60| 4f 20 57 48 49 4c 45 20 | 21 45 4f 46 28 29 0d 0a |O WHILE |!EOF()..|
|00001b70| 0d 0a 09 6c 63 44 61 74 | 61 46 69 6c 65 20 3d 20 |...lcDat|aFile = |
|00001b80| 41 4c 4c 54 52 49 4d 28 | 63 46 69 6c 65 4e 61 6d |ALLTRIM(|cFileNam|
|00001b90| 65 29 0d 0a 09 0d 0a 09 | 2a 20 43 72 65 61 74 65 |e)......|* Create|
|00001ba0| 20 6e 65 77 20 66 6f 72 | 6d 20 66 72 6f 6d 20 57 | new for|m from W|
|00001bb0| 69 7a 61 72 64 0d 0a 09 | 49 46 20 6c 46 6f 72 6d |izard...|IF lForm|
|00001bc0| 0d 0a 09 09 49 46 20 56 | 41 52 54 59 50 45 28 6c |....IF V|ARTYPE(l|
|00001bd0| 6f 57 69 7a 29 23 22 4f | 22 0d 0a 09 09 09 6c 6f |oWiz)#"O|".....lo|
|00001be0| 57 69 7a 20 3d 20 54 48 | 49 53 2e 47 65 74 57 69 |Wiz = TH|IS.GetWi|
|00001bf0| 7a 53 74 79 6c 65 52 65 | 66 28 29 0d 0a 09 09 45 |zStyleRe|f()....E|
|00001c00| 4e 44 49 46 0d 0a 09 09 | 6c 63 4f 75 74 46 69 6c |NDIF....|lcOutFil|
|00001c10| 65 20 3d 20 55 50 50 45 | 52 28 6c 63 46 6f 72 6d |e = UPPE|R(lcForm|
|00001c20| 73 50 61 74 68 20 2b 46 | 4f 52 43 45 45 58 54 28 |sPath +F|ORCEEXT(|
|00001c30| 4a 55 53 54 46 4e 41 4d | 45 28 6c 63 44 61 74 61 |JUSTFNAM|E(lcData|
|00001c40| 46 69 6c 65 29 2c 22 53 | 43 58 22 29 29 0d 0a 09 |File),"S|CX"))...|
|00001c50| 09 6c 6f 77 69 7a 2e 63 | 4f 75 74 46 69 6c 65 20 |.lowiz.c|OutFile |
|00001c60| 3d 20 6c 63 4f 75 74 46 | 69 6c 65 0d 0a 09 09 6c |= lcOutF|ile....l|
|00001c70| 6f 77 69 7a 2e 63 57 69 | 7a 54 61 62 6c 65 20 3d |owiz.cWi|zTable =|
|00001c80| 20 6c 63 44 61 74 61 46 | 69 6c 65 0d 0a 09 09 49 | lcDataF|ile....I|
|00001c90| 46 20 21 46 49 4c 45 28 | 6c 63 4f 75 74 46 69 6c |F !FILE(|lcOutFil|
|00001ca0| 65 29 20 4f 52 20 3b 0d | 0a 09 09 09 4d 45 53 53 |e) OR ;.|....MESS|
|00001cb0| 41 47 45 42 4f 58 28 43 | 5f 57 49 5a 46 49 4c 45 |AGEBOX(C|_WIZFILE|
|00001cc0| 45 58 49 53 54 53 31 5f | 4c 4f 43 20 2b 20 6c 63 |EXISTS1_|LOC + lc|
|00001cd0| 4f 75 74 46 69 6c 65 20 | 2b 20 43 5f 57 49 5a 46 |OutFile |+ C_WIZF|
|00001ce0| 49 4c 45 45 58 49 53 54 | 53 32 5f 4c 4f 43 2c 33 |ILEEXIST|S2_LOC,3|
|00001cf0| 36 29 3d 36 0d 0a 09 09 | 09 53 45 54 20 44 41 54 |6)=6....|.SET DAT|
|00001d00| 41 53 45 53 53 49 4f 4e | 20 54 4f 20 31 0d 0a 09 |ASESSION| TO 1...|
|00001d10| 09 09 44 4f 20 28 5f 57 | 49 5a 41 52 44 29 20 57 |..DO (_W|IZARD) W|
|00001d20| 49 54 48 20 22 41 55 54 | 4f 46 4f 52 4d 22 2c 22 |ITH "AUT|OFORM","|
|00001d30| 22 2c 22 22 2c 6c 6f 77 | 69 7a 0d 0a 09 09 09 53 |","",low|iz.....S|
|00001d40| 45 54 20 44 41 54 41 53 | 45 53 53 49 4f 4e 20 54 |ET DATAS|ESSION T|
|00001d50| 4f 20 54 48 49 53 2e 6e | 42 6c 64 72 44 61 74 61 |O THIS.n|BldrData|
|00001d60| 53 65 73 73 69 6f 6e 20 | 0d 0a 09 09 09 54 48 49 |Session |.....THI|
|00001d70| 53 2e 6f 50 72 6f 6a 65 | 63 74 2e 46 69 6c 65 73 |S.oProje|ct.Files|
|00001d80| 2e 41 64 64 28 6c 63 4f | 75 74 46 69 6c 65 29 0d |.Add(lcO|utFile).|
|00001d90| 0a 09 09 09 54 48 49 53 | 2e 41 64 64 44 6f 63 28 |....THIS|.AddDoc(|
|00001da0| 6c 63 4f 75 74 46 69 6c | 65 2c 22 22 2c 2e 54 2e |lcOutFil|e,"",.T.|
|00001db0| 29 0d 0a 09 09 45 4e 44 | 49 46 0d 0a 09 45 4e 44 |)....END|IF...END|
|00001dc0| 49 46 0d 0a 09 0d 0a 09 | 2a 20 43 72 65 61 74 65 |IF......|* Create|
|00001dd0| 20 6e 65 77 20 72 65 70 | 6f 72 74 20 66 72 6f 6d | new rep|ort from|
|00001de0| 20 57 69 7a 61 72 64 0d | 0a 09 49 46 20 6c 52 65 | Wizard.|..IF lRe|
|00001df0| 70 6f 72 74 0d 0a 09 09 | 49 46 20 56 41 52 54 59 |port....|IF VARTY|
|00001e00| 50 45 28 6c 6f 57 69 7a | 29 23 22 4f 22 0d 0a 09 |PE(loWiz|)#"O"...|
|00001e10| 09 09 6c 6f 57 69 7a 20 | 3d 20 54 48 49 53 2e 47 |..loWiz |= THIS.G|
|00001e20| 65 74 57 69 7a 53 74 79 | 6c 65 52 65 66 28 29 0d |etWizSty|leRef().|
|00001e30| 0a 09 09 45 4e 44 49 46 | 0d 0a 09 09 6c 63 4f 75 |...ENDIF|....lcOu|
|00001e40| 74 46 69 6c 65 20 3d 20 | 55 50 50 45 52 28 6c 63 |tFile = |UPPER(lc|
|00001e50| 52 65 70 6f 72 74 73 50 | 61 74 68 2b 46 4f 52 43 |ReportsP|ath+FORC|
|00001e60| 45 45 58 54 28 4a 55 53 | 54 46 4e 41 4d 45 28 6c |EEXT(JUS|TFNAME(l|
|00001e70| 63 44 61 74 61 46 69 6c | 65 29 2c 22 46 52 58 22 |cDataFil|e),"FRX"|
|00001e80| 29 29 0d 0a 09 09 6c 6f | 77 69 7a 2e 63 4f 75 74 |))....lo|wiz.cOut|
|00001e90| 46 69 6c 65 20 3d 20 6c | 63 4f 75 74 46 69 6c 65 |File = l|cOutFile|
|00001ea0| 0d 0a 09 09 6c 6f 77 69 | 7a 2e 63 57 69 7a 54 61 |....lowi|z.cWizTa|
|00001eb0| 62 6c 65 20 3d 20 6c 63 | 44 61 74 61 46 69 6c 65 |ble = lc|DataFile|
|00001ec0| 09 0d 0a 09 09 49 46 20 | 21 46 49 4c 45 28 6c 63 |.....IF |!FILE(lc|
|00001ed0| 4f 75 74 46 69 6c 65 29 | 20 4f 52 20 3b 0d 0a 09 |OutFile)| OR ;...|
|00001ee0| 09 09 4d 45 53 53 41 47 | 45 42 4f 58 28 43 5f 57 |..MESSAG|EBOX(C_W|
|00001ef0| 49 5a 46 49 4c 45 45 58 | 49 53 54 53 31 5f 4c 4f |IZFILEEX|ISTS1_LO|
|00001f00| 43 20 2b 20 6c 63 4f 75 | 74 46 69 6c 65 20 2b 20 |C + lcOu|tFile + |
|00001f10| 43 5f 57 49 5a 46 49 4c | 45 45 58 49 53 54 53 32 |C_WIZFIL|EEXISTS2|
|00001f20| 5f 4c 4f 43 2c 33 36 29 | 3d 36 0d 0a 09 09 09 53 |_LOC,36)|=6.....S|
|00001f30| 45 54 20 44 41 54 41 53 | 45 53 53 49 4f 4e 20 54 |ET DATAS|ESSION T|
|00001f40| 4f 20 31 0d 0a 09 09 09 | 44 4f 20 28 5f 57 49 5a |O 1.....|DO (_WIZ|
|00001f50| 41 52 44 29 20 57 49 54 | 48 20 22 41 55 54 4f 52 |ARD) WIT|H "AUTOR|
|00001f60| 45 50 4f 52 54 22 2c 22 | 22 2c 22 22 2c 6c 6f 77 |EPORT","|","",low|
|00001f70| 69 7a 0d 0a 09 09 09 53 | 45 54 20 44 41 54 41 53 |iz.....S|ET DATAS|
|00001f80| 45 53 53 49 4f 4e 20 54 | 4f 20 54 48 49 53 2e 6e |ESSION T|O THIS.n|
|00001f90| 42 6c 64 72 44 61 74 61 | 53 65 73 73 69 6f 6e 20 |BldrData|Session |
|00001fa0| 0d 0a 09 09 09 54 48 49 | 53 2e 6f 50 72 6f 6a 65 |.....THI|S.oProje|
|00001fb0| 63 74 2e 46 69 6c 65 73 | 2e 41 64 64 28 6c 63 4f |ct.Files|.Add(lcO|
|00001fc0| 75 74 46 69 6c 65 29 0d | 0a 09 09 09 54 48 49 53 |utFile).|....THIS|
|00001fd0| 2e 41 64 64 44 6f 63 28 | 6c 63 4f 75 74 46 69 6c |.AddDoc(|lcOutFil|
|00001fe0| 65 2c 22 22 2c 2e 54 2e | 29 0d 0a 09 09 45 4e 44 |e,"",.T.|)....END|
|00001ff0| 49 46 0d 0a 09 45 4e 44 | 49 46 0d 0a 09 0d 0a 09 |IF...END|IF......|
|00002000| 54 48 49 53 2e 6c 53 65 | 74 45 72 72 6f 72 4f 66 |THIS.lSe|tErrorOf|
|00002010| 66 20 3d 20 2e 54 2e 09 | 09 09 09 26 26 20 68 61 |f = .T..|...&& ha|
|00002020| 6e 64 6c 65 20 73 69 74 | 75 61 74 69 6f 6e 20 77 |ndle sit|uation w|
|00002030| 68 65 72 65 20 44 42 43 | 20 66 6f 72 20 74 61 62 |here DBC| for tab|
|00002040| 6c 65 20 61 6c 72 65 61 | 64 79 20 69 6e 20 50 4a |le alrea|dy in PJ|
|00002050| 58 0d 0a 09 54 48 49 53 | 2e 6f 50 72 6f 6a 65 63 |X...THIS|.oProjec|
|00002060| 74 2e 46 69 6c 65 73 2e | 41 64 64 28 6c 63 44 61 |t.Files.|Add(lcDa|
|00002070| 74 61 46 69 6c 65 29 09 | 26 26 20 61 64 64 20 64 |taFile).|&& add d|
|00002080| 61 74 61 73 6f 75 72 63 | 65 20 74 6f 20 70 72 6f |atasourc|e to pro|
|00002090| 6a 65 63 74 0d 0a 09 54 | 48 49 53 2e 6c 53 65 74 |ject...T|HIS.lSet|
|000020a0| 45 72 72 6f 72 4f 66 66 | 20 3d 20 2e 46 2e 0d 0a |ErrorOff| = .F...|
|000020b0| 0d 0a 09 53 4b 49 50 0d | 0a 09 0d 0a 45 4e 44 44 |...SKIP.|....ENDD|
|000020c0| 4f 0d 0a 0d 0a 49 46 20 | 56 41 52 54 59 50 45 28 |O....IF |VARTYPE(|
|000020d0| 54 48 49 53 2e 6f 50 72 | 6f 6a 65 63 74 2e 50 72 |THIS.oPr|oject.Pr|
|000020e0| 6f 6a 65 63 74 48 6f 6f | 6b 29 3d 22 4f 22 20 41 |ojectHoo|k)="O" A|
|000020f0| 4e 44 3b 0d 0a 20 50 45 | 4d 53 54 41 54 55 53 28 |ND;.. PE|MSTATUS(|
|00002100| 54 48 49 53 2e 6f 50 72 | 6f 6a 65 63 74 2e 50 72 |THIS.oPr|oject.Pr|
|00002110| 6f 6a 65 63 74 48 6f 6f | 6b 2c 22 6c 42 79 50 61 |ojectHoo|k,"lByPa|
|00002120| 73 73 42 75 69 6c 64 65 | 72 22 2c 35 29 0d 0a 09 |ssBuilde|r",5)...|
|00002130| 54 48 49 53 2e 6f 50 72 | 6f 6a 65 63 74 2e 50 72 |THIS.oPr|oject.Pr|
|00002140| 6f 6a 65 63 74 48 6f 6f | 6b 2e 6c 42 79 50 61 73 |ojectHoo|k.lByPas|
|00002150| 73 42 75 69 6c 64 65 72 | 20 3d 20 2e 46 2e 0d 0a |sBuilder| = .F...|
|00002160| 45 4e 44 49 46 0d 0a 0d | 0a 63 4f 6c 64 53 61 66 |ENDIF...|.cOldSaf|
|00002170| 65 20 3d 20 53 45 54 28 | 22 53 41 46 45 22 29 0d |e = SET(|"SAFE").|
|00002180| 0a 53 45 54 20 53 41 46 | 45 54 59 20 4f 46 46 0d |.SET SAF|ETY OFF.|
|00002190| 0a 5a 41 50 0d 0a 53 45 | 54 20 53 41 46 45 54 59 |.ZAP..SE|T SAFETY|
|000021a0| 20 26 63 4f 6c 64 53 61 | 66 65 0d 0a 53 45 4c 45 | &cOldSa|fe..SELE|
|000021b0| 43 54 20 28 6d 2e 6e 53 | 61 76 65 41 72 65 61 29 |CT (m.nS|aveArea)|
|000021c0| 0d 0a 54 48 49 53 2e 55 | 70 64 61 74 65 44 6f 63 |..THIS.U|pdateDoc|
|000021d0| 73 28 29 0d 0a 0d 0a 45 | 4e 44 50 52 4f 43 0d 0a |s()....E|NDPROC..|
|000021e0| 50 52 4f 43 45 44 55 52 | 45 20 6d 61 6b 65 6d 65 |PROCEDUR|E makeme|
|000021f0| 74 61 74 61 62 6c 65 0d | 0a 43 52 45 41 54 45 20 |tatable.|.CREATE |
|00002200| 54 41 42 4c 45 20 28 54 | 48 49 53 2e 63 4d 65 74 |TABLE (T|HIS.cMet|
|00002210| 61 44 42 46 29 3b 0d 0a | 20 28 64 6f 63 5f 74 79 |aDBF);..| (doc_ty|
|00002220| 70 65 20 63 28 31 29 2c | 3b 0d 0a 20 64 6f 63 5f |pe c(1),|;.. doc_|
|00002230| 64 65 73 63 72 20 63 28 | 36 30 29 2c 3b 0d 0a 20 |descr c(|60),;.. |
|00002240| 64 6f 63 5f 65 78 65 63 | 20 6d 2c 3b 0d 0a 20 64 |doc_exec| m,;.. d|
|00002250| 6f 63 5f 63 6c 61 73 73 | 20 6d 2c 3b 0d 0a 20 64 |oc_class| m,;.. d|
|00002260| 6f 63 5f 6e 65 77 20 6c | 2c 3b 0d 0a 20 64 6f 63 |oc_new l|,;.. doc|
|00002270| 5f 6f 70 65 6e 20 6c 2c | 3b 0d 0a 20 64 6f 63 5f |_open l,|;.. doc_|
|00002280| 73 69 6e 67 6c 65 20 6c | 2c 3b 0d 0a 20 64 6f 63 |single l|,;.. doc|
|00002290| 5f 6e 6f 73 68 6f 77 20 | 6c 2c 3b 0d 0a 20 64 6f |_noshow |l,;.. do|
|000022a0| 63 5f 77 72 61 70 20 6c | 2c 3b 0d 0a 20 64 6f 63 |c_wrap l|,;.. doc|
|000022b0| 5f 67 6f 20 6c 2c 3b 0d | 0a 20 64 6f 63 5f 6e 61 |_go l,;.|. doc_na|
|000022c0| 76 20 6c 2c 3b 0d 0a 20 | 61 6c 74 5f 65 78 63 65 |v l,;.. |alt_exce|
|000022d0| 20 6d 2c 3b 0d 0a 20 70 | 72 6f 70 65 72 74 69 65 | m,;.. p|ropertie|
|000022e0| 73 20 6d 2c 3b 0d 0a 20 | 75 73 65 72 5f 6e 6f 74 |s m,;.. |user_not|
|000022f0| 65 73 20 6d 29 0d 0a 20 | 55 53 45 0d 0a 20 0d 0a |es m).. |USE.. ..|
|00002300| 45 4e 44 50 52 4f 43 0d | 0a 50 52 4f 43 45 44 55 |ENDPROC.|.PROCEDU|
|00002310| 52 45 20 67 65 74 61 70 | 70 70 65 6d 73 0d 0a 4c |RE getap|ppems..L|
|00002320| 4f 43 41 4c 20 6f 41 50 | 50 2c 63 41 70 70 43 6c |OCAL oAP|P,cAppCl|
|00002330| 61 73 73 2c 63 41 70 70 | 43 6c 61 73 73 6c 69 62 |ass,cApp|Classlib|
|00002340| 2c 6e 53 61 76 65 41 72 | 65 61 0d 0a 4c 4f 43 41 |,nSaveAr|ea..LOCA|
|00002350| 4c 20 6c 63 48 65 61 64 | 65 72 46 69 6c 65 20 6c |L lcHead|erFile l|
|00002360| 63 43 6f 6e 74 65 6e 74 | 73 20 6c 63 48 65 61 64 |cContent|s lcHead|
|00002370| 65 72 4c 69 6e 65 0d 0a | 0d 0a 63 41 70 70 43 6c |erLine..|..cAppCl|
|00002380| 61 73 73 20 3d 20 41 50 | 50 5f 42 55 49 4c 44 45 |ass = AP|P_BUILDE|
|00002390| 52 5f 43 4c 41 53 53 5f | 50 52 45 46 49 58 2b 41 |R_CLASS_|PREFIX+A|
|000023a0| 50 50 5f 42 55 49 4c 44 | 45 52 5f 41 50 50 0d 0a |PP_BUILD|ER_APP..|
|000023b0| 0d 0a 63 41 70 70 43 6c | 61 73 73 4c 69 62 20 3d |..cAppCl|assLib =|
|000023c0| 20 20 4a 55 53 54 50 41 | 54 48 28 54 48 49 53 2e | JUSTPA|TH(THIS.|
|000023d0| 6f 50 72 6f 6a 65 63 74 | 2e 4e 61 6d 65 29 2b 41 |oProject|.Name)+A|
|000023e0| 50 50 4f 42 4a 45 43 54 | 5f 50 41 54 48 2b 3b 0d |PPOBJECT|_PATH+;.|
|000023f0| 0a 09 09 09 09 4a 55 53 | 54 53 54 45 4d 28 54 48 |.....JUS|TSTEM(TH|
|00002400| 49 53 2e 6f 50 72 6f 6a | 65 63 74 2e 4e 61 6d 65 |IS.oProj|ect.Name|
|00002410| 29 2b 41 50 50 4f 42 4a | 45 43 54 5f 46 49 4c 45 |)+APPOBJ|ECT_FILE|
|00002420| 0d 0a 0d 0a 54 48 49 53 | 2e 6c 48 61 73 41 70 70 |....THIS|.lHasApp|
|00002430| 4f 62 6a 65 63 74 20 3d | 20 46 49 4c 45 28 6d 2e |Object =| FILE(m.|
|00002440| 63 41 70 70 43 6c 61 73 | 73 4c 69 62 29 0d 0a 0d |cAppClas|sLib)...|
|00002450| 0a 49 46 20 21 54 48 49 | 53 2e 6c 48 61 73 41 70 |.IF !THI|S.lHasAp|
|00002460| 70 4f 62 6a 65 63 74 0d | 0a 09 2a 20 57 41 49 54 |pObject.|..* WAIT|
|00002470| 20 57 49 4e 44 4f 57 20 | 43 5f 4e 4f 46 52 41 4d | WINDOW |C_NOFRAM|
|00002480| 45 57 4f 52 4b 5f 4c 4f | 43 20 54 49 4d 45 4f 55 |EWORK_LO|C TIMEOU|
|00002490| 54 20 31 0d 0a 09 52 45 | 54 55 52 4e 0d 0a 45 4e |T 1...RE|TURN..EN|
|000024a0| 44 49 46 0d 0a 09 0d 0a | 6f 41 50 50 20 3d 20 4e |DIF.....|oAPP = N|
|000024b0| 45 57 4f 42 4a 45 43 54 | 28 63 41 70 70 43 6c 61 |EWOBJECT|(cAppCla|
|000024c0| 73 73 2c 63 41 70 70 43 | 6c 61 73 73 4c 69 62 29 |ss,cAppC|lassLib)|
|000024d0| 0d 0a 0d 0a 49 46 20 56 | 41 52 54 59 50 45 28 6f |....IF V|ARTYPE(o|
|000024e0| 41 70 70 29 20 23 20 22 | 4f 22 0d 0a 09 57 41 49 |App) # "|O"...WAI|
|000024f0| 54 20 57 49 4e 44 4f 57 | 20 43 5f 46 41 49 4c 41 |T WINDOW| C_FAILA|
|00002500| 50 50 4f 42 4a 5f 4c 4f | 43 0d 0a 09 52 45 54 55 |PPOBJ_LO|C...RETU|
|00002510| 52 4e 0d 0a 45 4e 44 49 | 46 0d 0a 0d 0a 2a 20 41 |RN..ENDI|F....* A|
|00002520| 70 70 6c 69 63 61 74 69 | 6f 6e 20 50 61 67 65 0d |pplicati|on Page.|
|00002530| 0a 57 49 54 48 20 54 48 | 49 53 2e 70 66 31 2e 70 |.WITH TH|IS.pf1.p|
|00002540| 67 41 70 70 0d 0a 09 2e | 74 78 74 41 70 70 4e 61 |gApp....|txtAppNa|
|00002550| 6d 65 2e 56 61 6c 75 65 | 20 3d 20 41 4c 4c 54 52 |me.Value| = ALLTR|
|00002560| 49 4d 28 6f 41 50 50 2e | 63 43 61 70 74 69 6f 6e |IM(oAPP.|cCaption|
|00002570| 29 0d 0a 09 2e 74 78 74 | 41 70 70 49 6d 61 67 65 |)....txt|AppImage|
|00002580| 2e 56 61 6c 75 65 20 3d | 20 41 4c 4c 54 52 49 4d |.Value =| ALLTRIM|
|00002590| 28 6f 41 50 50 2e 63 49 | 6d 61 67 65 29 0d 0a 09 |(oAPP.cI|mage)...|
|000025a0| 2e 69 6d 67 41 70 70 49 | 63 6f 6e 2e 50 69 63 74 |.imgAppI|con.Pict|
|000025b0| 75 72 65 20 3d 20 6f 41 | 70 70 2e 63 49 63 6f 6e |ure = oA|pp.cIcon|
|000025c0| 0d 0a 09 2e 63 68 6b 41 | 62 6f 75 74 2e 56 61 6c |....chkA|bout.Val|
|000025d0| 75 65 20 3d 20 6f 41 70 | 70 2e 6c 41 62 6f 75 74 |ue = oAp|p.lAbout|
|000025e0| 42 6f 78 0d 0a 09 2e 63 | 68 6b 51 75 69 63 6b 53 |Box....c|hkQuickS|
|000025f0| 74 61 72 74 2e 56 61 6c | 75 65 20 3d 20 6f 41 70 |tart.Val|ue = oAp|
|00002600| 70 2e 6c 53 74 61 72 74 | 75 70 46 6f 72 6d 0d 0a |p.lStart|upForm..|
|00002610| 09 2e 63 68 6b 55 73 65 | 72 4c 6f 67 69 6e 73 2e |..chkUse|rLogins.|
|00002620| 56 61 6c 75 65 20 3d 20 | 6f 41 70 70 2e 6c 55 73 |Value = |oApp.lUs|
|00002630| 65 72 50 72 65 66 65 72 | 65 6e 63 65 73 0d 0a 09 |erPrefer|ences...|
|00002640| 44 4f 20 43 41 53 45 0d | 0a 09 43 41 53 45 20 41 |DO CASE.|..CASE A|
|00002650| 54 43 28 41 50 50 5f 42 | 55 49 4c 44 45 52 5f 41 |TC(APP_B|UILDER_A|
|00002660| 50 50 45 4e 44 4d 45 4e | 55 5f 53 55 46 46 49 58 |PPENDMEN|U_SUFFIX|
|00002670| 2c 20 6f 41 70 70 2e 63 | 53 74 61 72 74 75 70 4d |, oApp.c|StartupM|
|00002680| 65 6e 75 29 23 30 0d 0a | 09 09 2e 6f 67 41 70 70 |enu)#0..|...ogApp|
|00002690| 54 79 70 65 2e 56 61 6c | 75 65 20 3d 20 32 0d 0a |Type.Val|ue = 2..|
|000026a0| 09 43 41 53 45 20 41 54 | 43 28 41 50 50 5f 42 55 |.CASE AT|C(APP_BU|
|000026b0| 49 4c 44 45 52 5f 54 4f | 50 4d 45 4e 55 5f 53 55 |ILDER_TO|PMENU_SU|
|000026c0| 46 46 49 58 2c 20 6f 41 | 70 70 2e 63 53 74 61 72 |FFIX, oA|pp.cStar|
|000026d0| 74 75 70 4d 65 6e 75 29 | 23 30 0d 0a 09 09 2e 6f |tupMenu)|#0.....o|
|000026e0| 67 41 70 70 54 79 70 65 | 2e 56 61 6c 75 65 20 3d |gAppType|.Value =|
|000026f0| 20 33 0d 0a 09 4f 54 48 | 45 52 57 49 53 45 0d 0a | 3...OTH|ERWISE..|
|00002700| 09 09 2e 6f 67 41 70 70 | 54 79 70 65 2e 56 61 6c |...ogApp|Type.Val|
|00002710| 75 65 20 3d 20 31 0d 0a | 09 45 4e 44 43 41 53 45 |ue = 1..|.ENDCASE|
|00002720| 0d 0a 09 54 48 49 53 2e | 6e 41 70 70 54 79 70 65 |...THIS.|nAppType|
|00002730| 20 3d 20 2e 6f 67 41 70 | 70 54 79 70 65 2e 56 61 | = .ogAp|pType.Va|
|00002740| 6c 75 65 0d 0a 0d 0a 09 | 2a 20 43 68 65 63 6b 20 |lue.....|* Check |
|00002750| 66 6f 72 20 53 70 6c 61 | 73 68 0d 0a 09 6c 63 48 |for Spla|sh...lcH|
|00002760| 65 61 64 65 72 46 69 6c | 65 20 3d 20 41 44 44 42 |eaderFil|e = ADDB|
|00002770| 53 28 4a 55 53 54 50 41 | 54 48 28 54 48 49 53 2e |S(JUSTPA|TH(THIS.|
|00002780| 6f 50 72 6f 6a 65 63 74 | 2e 4e 61 6d 65 29 29 20 |oProject|.Name)) |
|00002790| 2b 20 3b 0d 0a 09 09 4a | 55 53 54 53 54 45 4d 28 |+ ;....J|USTSTEM(|
|000027a0| 54 48 49 53 2e 6f 50 72 | 6f 6a 65 63 74 2e 4e 61 |THIS.oPr|oject.Na|
|000027b0| 6d 65 29 20 2b 20 41 50 | 50 5f 42 55 49 4c 44 45 |me) + AP|P_BUILDE|
|000027c0| 52 5f 46 49 4c 45 5f 53 | 55 46 46 49 58 20 2b 20 |R_FILE_S|UFFIX + |
|000027d0| 22 2e 48 22 0d 0a 09 6c | 63 43 6f 6e 74 65 6e 74 |".H"...l|cContent|
|000027e0| 73 20 3d 22 22 0d 0a 09 | 6c 63 43 6f 6e 74 65 6e |s =""...|lcConten|
|000027f0| 74 73 20 3d 20 46 49 4c | 45 54 4f 53 54 52 28 6c |ts = FIL|ETOSTR(l|
|00002800| 63 48 65 61 64 65 72 46 | 69 6c 65 29 0d 0a 09 49 |cHeaderF|ile)...I|
|00002810| 46 20 21 45 4d 50 54 59 | 28 6c 63 43 6f 6e 74 65 |F !EMPTY|(lcConte|
|00002820| 6e 74 73 29 09 26 26 65 | 6d 70 74 79 20 2d 20 66 |nts).&&e|mpty - f|
|00002830| 61 69 6c 65 64 20 74 6f | 20 6f 70 65 6e 20 66 69 |ailed to| open fi|
|00002840| 6c 65 20 2d 20 6d 61 79 | 20 62 65 20 69 6e 20 75 |le - may| be in u|
|00002850| 73 65 0d 0a 09 09 6c 63 | 48 65 61 64 65 72 4c 69 |se....lc|HeaderLi|
|00002860| 6e 65 20 3d 20 4d 4c 49 | 4e 45 28 6c 63 43 6f 6e |ne = MLI|NE(lcCon|
|00002870| 74 65 6e 74 73 2c 41 54 | 43 4c 49 4e 45 28 22 23 |tents,AT|CLINE("#|
|00002880| 44 45 46 49 4e 45 20 41 | 50 50 5f 53 50 4c 41 53 |DEFINE A|PP_SPLAS|
|00002890| 48 43 4c 41 53 53 20 22 | 2c 6c 63 43 6f 6e 74 65 |HCLASS "|,lcConte|
|000028a0| 6e 74 73 29 29 0d 0a 09 | 09 54 48 49 53 2e 6c 48 |nts))...|.THIS.lH|
|000028b0| 61 73 53 70 6c 61 73 68 | 20 3d 20 28 55 50 50 45 |asSplash| = (UPPE|
|000028c0| 52 28 41 4c 4c 54 52 49 | 4d 28 4c 45 46 54 28 6c |R(ALLTRI|M(LEFT(l|
|000028d0| 63 48 65 61 64 65 72 4c | 69 6e 65 2c 34 29 29 29 |cHeaderL|ine,4)))|
|000028e0| 3d 22 23 44 45 46 22 29 | 0d 0a 09 09 54 48 49 53 |="#DEF")|....THIS|
|000028f0| 2e 70 66 31 2e 70 67 41 | 70 70 2e 63 68 6b 53 70 |.pf1.pgA|pp.chkSp|
|00002900| 6c 61 73 68 2e 56 61 6c | 75 65 20 3d 20 54 48 49 |lash.Val|ue = THI|
|00002910| 53 2e 6c 48 61 73 53 70 | 6c 61 73 68 20 0d 0a 09 |S.lHasSp|lash ...|
|00002920| 45 4e 44 49 46 0d 0a 0d | 0a 45 4e 44 57 49 54 48 |ENDIF...|.ENDWITH|
|00002930| 0d 0a 0d 0a 2a 20 56 65 | 72 73 69 6f 6e 20 50 61 |....* Ve|rsion Pa|
|00002940| 67 65 0d 0a 57 49 54 48 | 20 54 48 49 53 2e 70 66 |ge..WITH| THIS.pf|
|00002950| 31 2e 70 67 43 72 65 64 | 69 74 73 0d 0a 09 2e 74 |1.pgCred|its....t|
|00002960| 78 74 41 75 74 68 6f 72 | 2e 56 61 6c 75 65 20 3d |xtAuthor|.Value =|
|00002970| 20 6f 41 50 50 2e 63 41 | 75 74 68 6f 72 0d 0a 09 | oAPP.cA|uthor...|
|00002980| 2e 74 78 74 43 6f 6d 70 | 61 6e 79 2e 56 61 6c 75 |.txtComp|any.Valu|
|00002990| 65 20 3d 20 6f 41 50 50 | 2e 63 43 6f 6d 70 61 6e |e = oAPP|.cCompan|
|000029a0| 79 0d 0a 09 2e 74 78 74 | 56 65 72 73 69 6f 6e 2e |y....txt|Version.|
|000029b0| 56 61 6c 75 65 20 3d 20 | 54 52 41 4e 53 28 6f 41 |Value = |TRANS(oA|
|000029c0| 50 50 2e 63 56 65 72 73 | 69 6f 6e 29 0d 0a 09 2e |PP.cVers|ion)....|
|000029d0| 74 78 74 43 6f 70 79 72 | 69 67 68 74 2e 56 61 6c |txtCopyr|ight.Val|
|000029e0| 75 65 20 3d 20 54 52 41 | 4e 53 28 6f 41 50 50 2e |ue = TRA|NS(oAPP.|
|000029f0| 63 43 6f 70 79 72 69 67 | 68 74 29 0d 0a 09 2e 74 |cCopyrig|ht)....t|
|00002a00| 78 74 54 72 61 64 65 6d | 61 72 6b 2e 56 61 6c 75 |xtTradem|ark.Valu|
|00002a10| 65 20 3d 20 54 52 41 4e | 53 28 6f 41 50 50 2e 63 |e = TRAN|S(oAPP.c|
|00002a20| 54 72 61 64 65 6d 61 72 | 6b 29 0d 0a 09 49 46 20 |Trademar|k)...IF |
|00002a30| 45 4d 50 54 59 28 2e 74 | 78 74 43 6f 6d 70 61 6e |EMPTY(.t|xtCompan|
|00002a40| 79 2e 56 61 6c 75 65 29 | 0d 0a 09 09 2e 74 78 74 |y.Value)|.....txt|
|00002a50| 43 6f 6d 70 61 6e 79 2e | 56 61 6c 75 65 20 3d 20 |Company.|Value = |
|00002a60| 54 48 49 53 2e 6f 50 72 | 6f 6a 65 63 74 2e 56 65 |THIS.oPr|oject.Ve|
|00002a70| 72 73 69 6f 6e 43 6f 6d | 70 61 6e 79 0d 0a 09 45 |rsionCom|pany...E|
|00002a80| 4e 44 49 46 0d 0a 09 49 | 46 20 45 4d 50 54 59 28 |NDIF...I|F EMPTY(|
|00002a90| 2e 74 78 74 43 6f 70 79 | 72 69 67 68 74 2e 56 61 |.txtCopy|right.Va|
|00002aa0| 6c 75 65 29 0d 0a 09 09 | 2e 74 78 74 43 6f 70 79 |lue)....|.txtCopy|
|00002ab0| 72 69 67 68 74 2e 56 61 | 6c 75 65 20 3d 20 54 48 |right.Va|lue = TH|
|00002ac0| 49 53 2e 6f 50 72 6f 6a | 65 63 74 2e 56 65 72 73 |IS.oProj|ect.Vers|
|00002ad0| 69 6f 6e 43 6f 70 79 72 | 69 67 68 74 20 0d 0a 09 |ionCopyr|ight ...|
|00002ae0| 45 4e 44 49 46 0d 0a 09 | 49 46 20 45 4d 50 54 59 |ENDIF...|IF EMPTY|
|00002af0| 28 2e 74 78 74 54 72 61 | 64 65 6d 61 72 6b 2e 56 |(.txtTra|demark.V|
|00002b00| 61 6c 75 65 29 0d 0a 09 | 09 2e 74 78 74 54 72 61 |alue)...|..txtTra|
|00002b10| 64 65 6d 61 72 6b 2e 56 | 61 6c 75 65 20 3d 20 54 |demark.V|alue = T|
|00002b20| 48 49 53 2e 6f 50 72 6f | 6a 65 63 74 2e 56 65 72 |HIS.oPro|ject.Ver|
|00002b30| 73 69 6f 6e 54 72 61 64 | 65 6d 61 72 6b 73 20 0d |sionTrad|emarks .|
|00002b40| 0a 09 45 4e 44 49 46 0d | 0a 09 2a 20 41 6c 77 61 |..ENDIF.|..* Alwa|
|00002b50| 79 73 20 75 70 64 61 74 | 65 20 56 65 72 73 69 6f |ys updat|e Versio|
|00002b60| 6e 20 77 69 74 68 20 6c | 61 74 65 73 74 20 69 66 |n with l|atest if|
|00002b70| 20 6f 6e 65 20 65 78 69 | 73 74 73 0d 0a 09 49 46 | one exi|sts...IF|
|00002b80| 20 21 49 4e 4c 49 53 54 | 28 54 48 49 53 2e 6f 50 | !INLIST|(THIS.oP|
|00002b90| 72 6f 6a 65 63 74 2e 76 | 65 72 73 69 6f 6e 6e 75 |roject.v|ersionnu|
|00002ba0| 6d 62 65 72 2c 22 2e 2e | 22 2c 22 30 2e 30 2e 30 |mber,"..|","0.0.0|
|00002bb0| 22 29 0d 0a 09 09 2e 74 | 78 74 56 65 72 73 69 6f |").....t|xtVersio|
|00002bc0| 6e 2e 56 61 6c 75 65 20 | 3d 20 54 48 49 53 2e 6f |n.Value |= THIS.o|
|00002bd0| 50 72 6f 6a 65 63 74 2e | 56 65 72 73 69 6f 6e 4e |Project.|VersionN|
|00002be0| 75 6d 62 65 72 0d 0a 09 | 45 4e 44 49 46 0d 0a 45 |umber...|ENDIF..E|
|00002bf0| 4e 44 57 49 54 48 0d 0a | 0d 0a 2a 20 41 64 76 61 |NDWITH..|..* Adva|
|00002c00| 6e 63 65 64 20 50 61 67 | 65 0d 0a 57 49 54 48 20 |nced Pag|e..WITH |
|00002c10| 54 48 49 53 2e 70 66 31 | 2e 70 67 41 64 76 0d 0a |THIS.pf1|.pgAdv..|
|00002c20| 09 2e 74 78 74 48 65 6c | 70 46 69 6c 65 2e 56 61 |..txtHel|pFile.Va|
|00002c30| 6c 75 65 20 3d 20 6f 41 | 50 50 2e 63 48 65 6c 70 |lue = oA|PP.cHelp|
|00002c40| 46 69 6c 65 0d 0a 09 2e | 74 78 74 44 61 74 61 46 |File....|txtDataF|
|00002c50| 6f 6c 64 65 72 2e 56 61 | 6c 75 65 20 3d 20 6f 41 |older.Va|lue = oA|
|00002c60| 50 50 2e 63 44 61 74 61 | 46 6f 6c 64 65 72 0d 0a |PP.cData|Folder..|
|00002c70| 09 2e 63 68 6b 54 6f 6f | 6c 62 61 72 2e 56 61 6c |..chkToo|lbar.Val|
|00002c80| 75 65 20 3d 20 6f 41 70 | 70 2e 6c 53 74 61 72 74 |ue = oAp|p.lStart|
|00002c90| 75 70 54 6f 6f 6c 62 61 | 72 0d 0a 09 2e 63 68 6b |upToolba|r....chk|
|00002ca0| 46 61 76 6f 72 69 74 65 | 73 2e 56 61 6c 75 65 20 |Favorite|s.Value |
|00002cb0| 3d 20 6f 41 70 70 2e 6c | 46 61 76 6f 72 69 74 65 |= oApp.l|Favorite|
|00002cc0| 73 0d 0a 45 4e 44 57 49 | 54 48 0d 0a 0d 0a 6f 41 |s..ENDWI|TH....oA|
|00002cd0| 70 70 3d 6e 75 6c 6c 0d | 0a 0d 0a 6e 53 61 76 65 |pp=null.|...nSave|
|00002ce0| 41 72 65 61 20 3d 20 53 | 45 4c 45 43 54 28 29 0d |Area = S|ELECT().|
|00002cf0| 0a 53 45 4c 45 43 54 20 | 30 20 0d 0a 0d 0a 2a 20 |.SELECT |0 ....* |
|00002d00| 43 6c 65 61 72 20 75 73 | 65 72 20 61 70 70 6c 69 |Clear us|er appli|
|00002d10| 63 61 74 6f 6e 20 63 6c | 61 73 73 65 73 0d 0a 55 |caton cl|asses..U|
|00002d20| 53 45 20 28 6d 2e 63 41 | 70 70 43 6c 61 73 73 4c |SE (m.cA|ppClassL|
|00002d30| 69 62 29 20 41 47 41 49 | 4e 20 53 48 41 52 45 44 |ib) AGAI|N SHARED|
|00002d40| 0d 0a 49 46 20 21 45 4d | 50 54 59 28 41 4c 49 41 |..IF !EM|PTY(ALIA|
|00002d50| 53 28 29 29 0d 0a 09 4c | 4f 43 41 54 45 20 46 4f |S())...L|OCATE FO|
|00002d60| 52 20 41 4c 4c 54 52 28 | 4c 4f 57 45 52 28 6f 62 |R ALLTR(|LOWER(ob|
|00002d70| 6a 4e 61 6d 65 29 29 20 | 3d 3d 20 4c 4f 57 45 52 |jName)) |== LOWER|
|00002d80| 28 63 41 70 70 43 6c 61 | 73 73 29 20 41 4e 44 20 |(cAppCla|ss) AND |
|00002d90| 4e 4f 54 20 44 45 4c 45 | 54 45 44 28 29 0d 0a 09 |NOT DELE|TED()...|
|00002da0| 49 46 20 46 4f 55 4e 44 | 28 29 0d 0a 09 09 54 48 |IF FOUND|()....TH|
|00002db0| 49 53 2e 43 6c 65 61 72 | 43 6c 61 73 73 28 29 0d |IS.Clear|Class().|
|00002dc0| 0a 09 09 55 53 45 0d 0a | 09 45 4e 44 49 46 09 0d |...USE..|.ENDIF..|
|00002dd0| 0a 45 4e 44 49 46 0d 0a | 43 4c 45 41 52 20 43 4c |.ENDIF..|CLEAR CL|
|00002de0| 41 53 53 20 26 63 41 70 | 70 43 6c 61 73 73 0d 0a |ASS &cAp|pClass..|
|00002df0| 0d 0a 2a 20 43 6c 65 61 | 72 20 5f 61 70 70 6c 69 |..* Clea|r _appli|
|00002e00| 63 61 74 6f 6e 20 63 6c | 61 73 73 65 73 0d 0a 55 |caton cl|asses..U|
|00002e10| 53 45 20 28 48 4f 4d 45 | 28 29 2b 43 5f 42 41 53 |SE (HOME|()+C_BAS|
|00002e20| 45 41 50 50 43 4c 41 53 | 53 4c 49 42 29 20 41 47 |EAPPCLAS|SLIB) AG|
|00002e30| 41 49 4e 20 53 48 41 52 | 45 44 0d 0a 49 46 20 21 |AIN SHAR|ED..IF !|
|00002e40| 45 4d 50 54 59 28 41 4c | 49 41 53 28 29 29 0d 0a |EMPTY(AL|IAS())..|
|00002e50| 09 4c 4f 43 41 54 45 20 | 46 4f 52 20 41 4c 4c 54 |.LOCATE |FOR ALLT|
|00002e60| 52 28 4c 4f 57 45 52 28 | 6f 62 6a 4e 61 6d 65 29 |R(LOWER(|objName)|
|00002e70| 29 20 3d 3d 20 4c 4f 57 | 45 52 28 43 5f 42 41 53 |) == LOW|ER(C_BAS|
|00002e80| 45 41 50 50 43 4c 41 53 | 53 29 20 41 4e 44 20 4e |EAPPCLAS|S) AND N|
|00002e90| 4f 54 20 44 45 4c 45 54 | 45 44 28 29 0d 0a 09 49 |OT DELET|ED()...I|
|00002ea0| 46 20 46 4f 55 4e 44 28 | 29 0d 0a 09 09 54 48 49 |F FOUND(|)....THI|
|00002eb0| 53 2e 43 6c 65 61 72 43 | 6c 61 73 73 28 29 0d 0a |S.ClearC|lass()..|
|00002ec0| 09 09 55 53 45 0d 0a 09 | 45 4e 44 49 46 0d 0a 45 |..USE...|ENDIF..E|
|00002ed0| 4e 44 49 46 0d 0a 43 4c | 45 41 52 20 43 4c 41 53 |NDIF..CL|EAR CLAS|
|00002ee0| 53 20 43 5f 42 41 53 45 | 41 50 50 43 4c 41 53 53 |S C_BASE|APPCLASS|
|00002ef0| 0d 0a 0d 0a 53 45 4c 45 | 43 54 20 28 6d 2e 6e 53 |....SELE|CT (m.nS|
|00002f00| 61 76 65 41 72 65 61 29 | 0d 0a 45 4e 44 50 52 4f |aveArea)|..ENDPRO|
|00002f10| 43 0d 0a 50 52 4f 43 45 | 44 55 52 45 20 73 65 74 |C..PROCE|DURE set|
|00002f20| 61 70 70 70 65 6d 73 0d | 0a 4c 4f 43 41 4c 20 6e |apppems.|.LOCAL n|
|00002f30| 53 61 76 65 41 72 65 61 | 2c 63 41 70 70 43 6c 61 |SaveArea|,cAppCla|
|00002f40| 73 73 2c 63 41 70 70 43 | 6c 61 73 73 6c 69 62 2c |ss,cAppC|lasslib,|
|00002f50| 63 53 70 6c 61 73 68 43 | 6c 61 73 73 2c 6c 63 47 |cSplashC|lass,lcG|
|00002f60| 6f 4d 65 6e 75 2c 6c 63 | 66 69 6c 65 0d 0a 4c 4f |oMenu,lc|file..LO|
|00002f70| 43 41 4c 20 6c 63 43 6f | 6e 74 65 6e 74 73 2c 20 |CAL lcCo|ntents, |
|00002f80| 6c 63 48 65 61 64 65 72 | 46 69 6c 65 2c 20 6c 69 |lcHeader|File, li|
|00002f90| 48 65 61 64 65 72 4c 69 | 6e 65 2c 20 6c 63 48 65 |HeaderLi|ne, lcHe|
|00002fa0| 61 64 65 72 4c 69 6e 65 | 2c 20 6c 63 53 70 6c 61 |aderLine|, lcSpla|
|00002fb0| 73 68 44 65 66 69 6e 65 | 53 74 72 69 6e 67 0d 0a |shDefine|String..|
|00002fc0| 4c 4f 43 41 4c 20 61 46 | 69 6c 65 73 2c 6c 63 50 |LOCAL aF|iles,lcP|
|00002fd0| 61 74 68 2c 6c 63 4d 65 | 6e 75 50 61 74 68 2c 6c |ath,lcMe|nuPath,l|
|00002fe0| 63 4d 65 6e 75 4e 61 6d | 65 2c 6c 63 4f 6c 64 4d |cMenuNam|e,lcOldM|
|00002ff0| 65 6e 75 4e 61 6d 65 2c | 63 53 61 66 65 74 79 2c |enuName,|cSafety,|
|00003000| 6e 53 65 74 4d 65 6d 6f | 0d 0a 0d 0a 49 46 20 21 |nSetMemo|....IF !|
|00003010| 54 48 49 53 2e 6c 48 61 | 73 41 70 70 4f 62 6a 65 |THIS.lHa|sAppObje|
|00003020| 63 74 0d 0a 09 52 45 54 | 55 52 4e 0d 0a 45 4e 44 |ct...RET|URN..END|
|00003030| 49 46 0d 0a 0d 0a 49 46 | 20 56 41 52 54 59 50 45 |IF....IF| VARTYPE|
|00003040| 28 54 48 49 53 2e 6e 41 | 75 74 6f 55 70 64 61 74 |(THIS.nA|utoUpdat|
|00003050| 65 29 23 22 4e 22 0d 0a | 09 2a 20 30 20 2d 20 70 |e)#"N"..|.* 0 - p|
|00003060| 72 6f 6d 70 74 20 75 70 | 64 61 74 65 2c 20 31 20 |rompt up|date, 1 |
|00003070| 2d 20 66 6f 72 63 65 20 | 75 70 64 61 74 65 2c 20 |- force |update, |
|00003080| 32 20 2d 20 73 6b 69 70 | 20 75 70 64 61 74 65 0d |2 - skip| update.|
|00003090| 0a 09 54 48 49 53 2e 6e | 41 75 74 6f 55 70 64 61 |..THIS.n|AutoUpda|
|000030a0| 74 65 20 3d 20 30 0d 0a | 45 4e 44 49 46 0d 0a 0d |te = 0..|ENDIF...|
|000030b0| 0a 49 46 20 54 48 49 53 | 2e 6e 41 75 74 6f 55 70 |.IF THIS|.nAutoUp|
|000030c0| 64 61 74 65 3d 32 0d 0a | 09 52 45 54 55 52 4e 0d |date=2..|.RETURN.|
|000030d0| 0a 45 4e 44 49 46 0d 0a | 0d 0a 49 46 20 54 48 49 |.ENDIF..|..IF THI|
|000030e0| 53 2e 6e 41 75 74 6f 55 | 70 64 61 74 65 3d 32 20 |S.nAutoU|pdate=2 |
|000030f0| 4f 52 20 3b 0d 0a 09 28 | 54 48 49 53 2e 6e 41 75 |OR ;...(|THIS.nAu|
|00003100| 74 6f 55 70 64 61 74 65 | 3d 30 20 41 4e 44 20 4d |toUpdate|=0 AND M|
|00003110| 45 53 53 41 47 45 42 4f | 58 28 57 52 49 54 45 4f |ESSAGEBO|X(WRITEO|
|00003120| 55 54 50 52 4f 4a 45 43 | 54 5f 4c 4f 43 2c 33 36 |UTPROJEC|T_LOC,36|
|00003130| 29 23 36 29 0d 0a 09 52 | 45 54 55 52 4e 0d 0a 45 |)#6)...R|ETURN..E|
|00003140| 4e 44 49 46 0d 0a 0d 0a | 63 41 70 70 43 6c 61 73 |NDIF....|cAppClas|
|00003150| 73 20 3d 20 41 50 50 5f | 42 55 49 4c 44 45 52 5f |s = APP_|BUILDER_|
|00003160| 43 4c 41 53 53 5f 50 52 | 45 46 49 58 2b 41 50 50 |CLASS_PR|EFIX+APP|
|00003170| 5f 42 55 49 4c 44 45 52 | 5f 41 50 50 0d 0a 63 53 |_BUILDER|_APP..cS|
|00003180| 70 6c 61 73 68 43 6c 61 | 73 73 20 3d 20 41 50 50 |plashCla|ss = APP|
|00003190| 5f 42 55 49 4c 44 45 52 | 5f 43 4c 41 53 53 5f 50 |_BUILDER|_CLASS_P|
|000031a0| 52 45 46 49 58 2b 41 50 | 50 5f 42 55 49 4c 44 45 |REFIX+AP|P_BUILDE|
|000031b0| 52 5f 53 50 4c 41 53 48 | 0d 0a 0d 0a 63 41 70 70 |R_SPLASH|....cApp|
|000031c0| 43 6c 61 73 73 4c 69 62 | 20 3d 20 20 4a 55 53 54 |ClassLib| = JUST|
|000031d0| 50 41 54 48 28 54 48 49 | 53 2e 6f 50 72 6f 6a 65 |PATH(THI|S.oProje|
|000031e0| 63 74 2e 4e 61 6d 65 29 | 2b 41 50 50 4f 42 4a 45 |ct.Name)|+APPOBJE|
|000031f0| 43 54 5f 50 41 54 48 2b | 3b 0d 0a 09 09 09 09 4a |CT_PATH+|;......J|
|00003200| 55 53 54 53 54 45 4d 28 | 54 48 49 53 2e 6f 50 72 |USTSTEM(|THIS.oPr|
|00003210| 6f 6a 65 63 74 2e 4e 61 | 6d 65 29 2b 41 50 50 4f |oject.Na|me)+APPO|
|00003220| 42 4a 45 43 54 5f 46 49 | 4c 45 0d 0a 0d 0a 49 46 |BJECT_FI|LE....IF|
|00003230| 20 21 46 49 4c 45 28 6d | 2e 63 41 70 70 43 6c 61 | !FILE(m|.cAppCla|
|00003240| 73 73 6c 69 62 29 0d 0a | 09 52 45 54 55 52 4e 0d |sslib)..|.RETURN.|
|00003250| 0a 45 4e 44 49 46 0d 0a | 0d 0a 43 4c 45 41 52 20 |.ENDIF..|..CLEAR |
|00003260| 43 4c 41 53 53 20 28 6d | 2e 63 41 70 70 43 6c 61 |CLASS (m|.cAppCla|
|00003270| 73 73 29 0d 0a 43 4c 45 | 41 52 20 43 4c 41 53 53 |ss)..CLE|AR CLASS|
|00003280| 20 28 6d 2e 63 53 70 6c | 61 73 68 43 6c 61 73 73 | (m.cSpl|ashClass|
|00003290| 29 0d 0a 0d 0a 6e 53 61 | 76 65 41 72 65 61 20 3d |)....nSa|veArea =|
|000032a0| 20 53 45 4c 45 43 54 28 | 29 0d 0a 53 45 4c 45 43 | SELECT(|)..SELEC|
|000032b0| 54 20 30 20 0d 0a 55 53 | 45 20 28 6d 2e 63 41 70 |T 0 ..US|E (m.cAp|
|000032c0| 70 43 6c 61 73 73 4c 69 | 62 29 20 41 47 41 49 4e |pClassLi|b) AGAIN|
|000032d0| 20 53 48 41 52 45 44 0d | 0a 49 46 20 45 4d 50 54 | SHARED.|.IF EMPT|
|000032e0| 59 28 41 4c 49 41 53 28 | 29 29 0d 0a 09 4d 45 53 |Y(ALIAS(|))...MES|
|000032f0| 53 41 47 45 42 4f 58 28 | 43 5f 4e 4f 55 50 44 41 |SAGEBOX(|C_NOUPDA|
|00003300| 54 45 31 5f 4c 4f 43 20 | 2b 20 6d 2e 63 41 70 70 |TE1_LOC |+ m.cApp|
|00003310| 43 6c 61 73 73 4c 69 62 | 20 2b 20 43 5f 4e 4f 55 |ClassLib| + C_NOU|
|00003320| 50 44 41 54 45 32 5f 4c | 4f 43 20 29 0d 0a 09 52 |PDATE2_L|OC )...R|
|00003330| 45 54 55 52 4e 0d 0a 45 | 4e 44 49 46 0d 0a 0d 0a |ETURN..E|NDIF....|
|00003340| 2a 4c 6f 63 61 74 65 20 | 61 70 70 6c 69 63 61 74 |*Locate |applicat|
|00003350| 69 6f 6e 20 63 6c 61 73 | 73 0d 0a 4c 4f 43 41 54 |ion clas|s..LOCAT|
|00003360| 45 20 46 4f 52 20 41 4c | 4c 54 52 28 4c 4f 57 45 |E FOR AL|LTR(LOWE|
|00003370| 52 28 6f 62 6a 4e 61 6d | 65 29 29 20 3d 3d 20 4c |R(objNam|e)) == L|
|00003380| 4f 57 45 52 28 63 41 70 | 70 43 6c 61 73 73 29 20 |OWER(cAp|pClass) |
|00003390| 41 4e 44 20 4e 4f 54 20 | 44 45 4c 45 54 45 44 28 |AND NOT |DELETED(|
|000033a0| 29 0d 0a 49 46 20 4e 4f | 54 20 46 4f 55 4e 44 28 |)..IF NO|T FOUND(|
|000033b0| 29 0d 0a 09 4d 45 53 53 | 41 47 45 42 4f 58 28 43 |)...MESS|AGEBOX(C|
|000033c0| 5f 4e 4f 46 49 4e 44 5f | 4c 4f 43 29 0d 0a 09 55 |_NOFIND_|LOC)...U|
|000033d0| 53 45 0d 0a 09 53 45 4c | 45 43 54 20 28 6d 2e 6e |SE...SEL|ECT (m.n|
|000033e0| 53 61 76 65 41 72 65 61 | 29 0d 0a 09 52 45 54 55 |SaveArea|)...RETU|
|000033f0| 52 4e 0d 0a 45 4e 44 49 | 46 0d 0a 0d 0a 57 41 49 |RN..ENDI|F....WAI|
|00003400| 54 20 57 49 4e 44 4f 57 | 20 4e 4f 57 41 49 54 20 |T WINDOW| NOWAIT |
|00003410| 53 54 41 54 5f 55 50 44 | 41 54 45 5f 4c 4f 43 0d |STAT_UPD|ATE_LOC.|
|00003420| 0a 0d 0a 6e 4d 65 6d 6f | 57 69 64 74 68 20 3d 20 |...nMemo|Width = |
|00003430| 53 45 54 28 22 4d 45 4d | 4f 22 29 0d 0a 53 45 54 |SET("MEM|O")..SET|
|00003440| 20 4d 45 4d 4f 20 54 4f | 20 32 35 36 0d 0a 2a 20 | MEMO TO| 256..* |
|00003450| 55 70 64 61 74 65 20 50 | 72 6f 6a 65 63 74 20 4e |Update P|roject N|
|00003460| 61 6d 65 0d 0a 54 48 49 | 53 2e 41 64 6a 75 73 74 |ame..THI|S.Adjust|
|00003470| 50 72 6f 70 65 72 74 69 | 65 73 28 22 63 50 72 6f |Properti|es("cPro|
|00003480| 6a 65 63 74 4e 61 6d 65 | 22 2c 4a 55 53 54 53 54 |jectName|",JUSTST|
|00003490| 45 4d 28 54 48 49 53 2e | 6f 50 72 6f 6a 65 63 74 |EM(THIS.|oProject|
|000034a0| 2e 4e 61 6d 65 29 29 0d | 0a 0d 0a 2a 55 70 64 61 |.Name)).|...*Upda|
|000034b0| 74 65 20 41 70 70 20 50 | 61 67 65 0d 0a 57 49 54 |te App P|age..WIT|
|000034c0| 48 20 54 48 49 53 2e 70 | 66 31 2e 70 67 41 70 70 |H THIS.p|f1.pgApp|
|000034d0| 0d 0a 0d 0a 09 2a 20 55 | 70 64 61 74 65 20 67 65 |.....* U|pdate ge|
|000034e0| 6e 65 72 61 6c 20 70 72 | 6f 70 65 72 74 69 65 73 |neral pr|operties|
|000034f0| 0d 0a 09 54 48 49 53 2e | 41 64 6a 75 73 74 50 72 |...THIS.|AdjustPr|
|00003500| 6f 70 65 72 74 69 65 73 | 28 22 63 43 61 70 74 69 |operties|("cCapti|
|00003510| 6f 6e 22 2c 2e 74 78 74 | 41 70 70 4e 61 6d 65 2e |on",.txt|AppName.|
|00003520| 56 61 6c 75 65 29 0d 0a | 09 54 48 49 53 2e 41 64 |Value)..|.THIS.Ad|
|00003530| 6a 75 73 74 50 72 6f 70 | 65 72 74 69 65 73 28 22 |justProp|erties("|
|00003540| 63 49 6d 61 67 65 22 2c | 2e 74 78 74 41 70 70 49 |cImage",|.txtAppI|
|00003550| 6d 61 67 65 2e 56 61 6c | 75 65 29 0d 0a 09 54 48 |mage.Val|ue)...TH|
|00003560| 49 53 2e 41 64 6a 75 73 | 74 50 72 6f 70 65 72 74 |IS.Adjus|tPropert|
|00003570| 69 65 73 28 22 63 49 63 | 6f 6e 22 2c 2e 69 6d 67 |ies("cIc|on",.img|
|00003580| 41 70 70 49 63 6f 6e 2e | 50 69 63 74 75 72 65 29 |AppIcon.|Picture)|
|00003590| 0d 0a 09 54 48 49 53 2e | 41 64 6a 75 73 74 50 72 |...THIS.|AdjustPr|
|000035a0| 6f 70 65 72 74 69 65 73 | 28 22 6c 41 62 6f 75 74 |operties|("lAbout|
|000035b0| 62 6f 78 22 2c 2e 63 68 | 6b 41 62 6f 75 74 2e 56 |box",.ch|kAbout.V|
|000035c0| 61 6c 75 65 29 0d 0a 09 | 54 48 49 53 2e 41 64 6a |alue)...|THIS.Adj|
|000035d0| 75 73 74 50 72 6f 70 65 | 72 74 69 65 73 28 22 6c |ustPrope|rties("l|
|000035e0| 53 74 61 72 74 75 70 46 | 6f 72 6d 22 2c 2e 63 68 |StartupF|orm",.ch|
|000035f0| 6b 51 75 69 63 6b 53 74 | 61 72 74 2e 56 61 6c 75 |kQuickSt|art.Valu|
|00003600| 65 29 0d 0a 09 54 48 49 | 53 2e 41 64 6a 75 73 74 |e)...THI|S.Adjust|
|00003610| 50 72 6f 70 65 72 74 69 | 65 73 28 22 6c 55 73 65 |Properti|es("lUse|
|00003620| 72 50 72 65 66 65 72 65 | 6e 63 65 73 22 2c 2e 63 |rPrefere|nces",.c|
|00003630| 68 6b 55 73 65 72 4c 6f | 67 69 6e 73 2e 56 61 6c |hkUserLo|gins.Val|
|00003640| 75 65 29 0d 0a 09 0d 0a | 09 2a 20 55 70 64 61 74 |ue).....|.* Updat|
|00003650| 65 20 61 70 70 6c 69 63 | 61 74 69 6f 6e 20 74 79 |e applic|ation ty|
|00003660| 70 65 20 6f 6e 6c 79 20 | 69 66 20 63 68 61 6e 67 |pe only |if chang|
|00003670| 65 64 0d 0a 09 49 46 20 | 54 48 49 53 2e 6e 41 70 |ed...IF |THIS.nAp|
|00003680| 70 54 79 70 65 20 23 20 | 2e 6f 67 41 70 70 54 79 |pType # |.ogAppTy|
|00003690| 70 65 2e 56 61 6c 75 65 | 0d 0a 0d 0a 09 09 2a 20 |pe.Value|......* |
|000036a0| 46 69 6e 64 20 67 6f 20 | 6d 65 6e 75 0d 0a 09 09 |Find go |menu....|
|000036b0| 6c 63 47 6f 4d 65 6e 75 | 20 3d 20 4a 55 53 54 53 |lcGoMenu| = JUSTS|
|000036c0| 54 45 4d 28 54 48 49 53 | 2e 6f 50 72 6f 6a 65 63 |TEM(THIS|.oProjec|
|000036d0| 74 2e 4e 61 6d 65 29 2b | 41 50 50 5f 42 55 49 4c |t.Name)+|APP_BUIL|
|000036e0| 44 45 52 5f 47 4f 4d 45 | 4e 55 5f 53 55 46 46 49 |DER_GOME|NU_SUFFI|
|000036f0| 58 2b 22 2e 4d 4e 58 22 | 0d 0a 09 09 46 4f 52 20 |X+".MNX"|....FOR |
|00003700| 45 41 43 48 20 6c 63 46 | 69 6c 65 20 49 4e 20 54 |EACH lcF|ile IN T|
|00003710| 48 49 53 2e 6f 50 72 6f | 6a 65 63 74 2e 46 69 6c |HIS.oPro|ject.Fil|
|00003720| 65 73 0d 0a 09 09 09 49 | 46 20 41 54 43 28 6c 63 |es.....I|F ATC(lc|
|00003730| 47 6f 4d 65 6e 75 2c 6c | 63 46 69 6c 65 2e 4e 61 |GoMenu,l|cFile.Na|
|00003740| 6d 65 29 23 30 0d 0a 09 | 09 09 09 6c 63 47 6f 4d |me)#0...|...lcGoM|
|00003750| 65 6e 75 20 3d 20 6c 63 | 46 69 6c 65 2e 4e 61 6d |enu = lc|File.Nam|
|00003760| 65 0d 0a 09 09 09 09 45 | 58 49 54 0d 0a 09 09 09 |e......E|XIT.....|
|00003770| 45 4e 44 49 46 0d 0a 09 | 09 45 4e 44 46 4f 52 0d |ENDIF...|.ENDFOR.|
|00003780| 0a 0d 0a 09 09 44 49 4d | 45 4e 53 49 4f 4e 20 61 |.....DIM|ENSION a|
|00003790| 46 69 6c 65 73 5b 31 5d | 0d 0a 09 09 6c 63 50 61 |Files[1]|....lcPa|
|000037a0| 74 68 20 3d 20 41 44 44 | 42 53 28 4a 55 53 54 50 |th = ADD|BS(JUSTP|
|000037b0| 41 54 48 28 54 48 49 53 | 2e 6f 50 72 6f 6a 65 63 |ATH(THIS|.oProjec|
|000037c0| 74 2e 4e 61 6d 65 29 29 | 0d 0a 09 09 6c 63 4d 65 |t.Name))|....lcMe|
|000037d0| 6e 75 50 61 74 68 20 3d | 20 49 49 46 28 41 44 49 |nuPath =| IIF(ADI|
|000037e0| 52 28 61 46 69 6c 65 73 | 2c 6d 2e 6c 63 50 61 74 |R(aFiles|,m.lcPat|
|000037f0| 68 2b 43 5f 4d 45 4e 55 | 53 46 4f 4c 44 45 52 2c |h+C_MENU|SFOLDER,|
|00003800| 22 44 22 29 3e 30 2c 3b | 0d 0a 09 09 09 41 44 44 |"D")>0,;|.....ADD|
|00003810| 42 53 28 6d 2e 6c 63 50 | 61 74 68 2b 43 5f 4d 45 |BS(m.lcP|ath+C_ME|
|00003820| 4e 55 53 46 4f 4c 44 45 | 52 29 2c 6d 2e 6c 63 50 |NUSFOLDE|R),m.lcP|
|00003830| 61 74 68 29 0d 0a 09 09 | 6c 63 4f 6c 64 4d 65 6e |ath)....|lcOldMen|
|00003840| 75 4e 61 6d 65 20 3d 20 | 4a 55 53 54 53 54 45 4d |uName = |JUSTSTEM|
|00003850| 28 54 48 49 53 2e 6f 50 | 72 6f 6a 65 63 74 2e 4e |(THIS.oP|roject.N|
|00003860| 61 6d 65 29 20 2b 20 49 | 49 46 28 54 48 49 53 2e |ame) + I|IF(THIS.|
|00003870| 6e 41 70 70 54 79 70 65 | 3d 32 2c 3b 0d 0a 09 09 |nAppType|=2,;....|
|00003880| 09 41 50 50 5f 42 55 49 | 4c 44 45 52 5f 41 50 50 |.APP_BUI|LDER_APP|
|00003890| 45 4e 44 4d 45 4e 55 5f | 53 55 46 46 49 58 2c 49 |ENDMENU_|SUFFIX,I|
|000038a0| 49 46 28 54 48 49 53 2e | 6e 41 70 70 54 79 70 65 |IF(THIS.|nAppType|
|000038b0| 3d 33 2c 3b 0d 0a 09 09 | 09 41 50 50 5f 42 55 49 |=3,;....|.APP_BUI|
|000038c0| 4c 44 45 52 5f 54 4f 50 | 4d 45 4e 55 5f 53 55 46 |LDER_TOP|MENU_SUF|
|000038d0| 46 49 58 2c 41 50 50 5f | 42 55 49 4c 44 45 52 5f |FIX,APP_|BUILDER_|
|000038e0| 4d 41 49 4e 4d 45 4e 55 | 5f 53 55 46 46 49 58 29 |MAINMENU|_SUFFIX)|
|000038f0| 29 2b 20 22 2e 4d 4e 58 | 22 0d 0a 0d 0a 09 09 44 |)+ ".MNX|"......D|
|00003900| 4f 20 43 41 53 45 0d 0a | 09 09 43 41 53 45 20 2e |O CASE..|..CASE .|
|00003910| 6f 67 41 70 70 54 79 70 | 65 2e 56 61 6c 75 65 20 |ogAppTyp|e.Value |
|00003920| 3d 20 32 09 26 26 6d 6f | 64 75 6c 65 0d 0a 09 09 |= 2.&&mo|dule....|
|00003930| 09 6c 63 4d 65 6e 75 4e | 61 6d 65 20 3d 20 4a 55 |.lcMenuN|ame = JU|
|00003940| 53 54 53 54 45 4d 28 54 | 48 49 53 2e 6f 50 72 6f |STSTEM(T|HIS.oPro|
|00003950| 6a 65 63 74 2e 4e 61 6d | 65 29 2b 41 50 50 5f 42 |ject.Nam|e)+APP_B|
|00003960| 55 49 4c 44 45 52 5f 41 | 50 50 45 4e 44 4d 45 4e |UILDER_A|PPENDMEN|
|00003970| 55 5f 53 55 46 46 49 58 | 0d 0a 09 09 09 54 48 49 |U_SUFFIX|.....THI|
|00003980| 53 2e 41 64 6a 75 73 74 | 50 72 6f 70 65 72 74 69 |S.Adjust|Properti|
|00003990| 65 73 28 22 63 53 74 61 | 72 74 75 70 4d 65 6e 75 |es("cSta|rtupMenu|
|000039a0| 50 61 64 22 2c 22 5f 4d | 53 4d 5f 41 50 50 22 29 |Pad","_M|SM_APP")|
|000039b0| 0d 0a 09 09 09 54 48 49 | 53 2e 41 64 6a 75 73 74 |.....THI|S.Adjust|
|000039c0| 50 72 6f 70 65 72 74 69 | 65 73 28 22 63 53 74 61 |Properti|es("cSta|
|000039d0| 72 74 75 70 4d 65 6e 75 | 50 6f 70 75 70 22 2c 22 |rtupMenu|Popup","|
|000039e0| 5f 4d 41 50 50 22 29 0d | 0a 09 09 09 54 48 49 53 |_MAPP").|....THIS|
|000039f0| 2e 41 64 6a 75 73 74 50 | 72 6f 70 65 72 74 69 65 |.AdjustP|ropertie|
|00003a00| 73 28 22 63 46 72 61 6d | 65 43 6c 61 73 73 22 2c |s("cFram|eClass",|
|00003a10| 22 22 29 0d 0a 09 09 09 | 54 48 49 53 2e 41 64 6a |"").....|THIS.Adj|
|00003a20| 75 73 74 50 72 6f 70 65 | 72 74 69 65 73 28 22 6c |ustPrope|rties("l|
|00003a30| 52 65 61 64 45 76 65 6e | 74 73 22 2c 2e 46 2e 29 |ReadEven|ts",.F.)|
|00003a40| 0d 0a 09 09 09 54 48 49 | 53 2e 55 70 64 61 74 65 |.....THI|S.Update|
|00003a50| 4d 65 6e 75 28 6c 63 47 | 6f 4d 65 6e 75 2c 4e 4f |Menu(lcG|oMenu,NO|
|00003a60| 52 4d 41 4c 4d 45 4e 55 | 5f 4f 42 4a 54 59 50 45 |RMALMENU|_OBJTYPE|
|00003a70| 29 0d 0a 09 09 43 41 53 | 45 20 2e 6f 67 41 70 70 |)....CAS|E .ogApp|
|00003a80| 54 79 70 65 2e 56 61 6c | 75 65 20 3d 20 33 09 26 |Type.Val|ue = 3.&|
|00003a90| 26 74 6f 70 0d 0a 09 09 | 09 6c 63 4d 65 6e 75 4e |&top....|.lcMenuN|
|00003aa0| 61 6d 65 20 3d 20 4a 55 | 53 54 53 54 45 4d 28 54 |ame = JU|STSTEM(T|
|00003ab0| 48 49 53 2e 6f 50 72 6f | 6a 65 63 74 2e 4e 61 6d |HIS.oPro|ject.Nam|
|00003ac0| 65 29 2b 41 50 50 5f 42 | 55 49 4c 44 45 52 5f 54 |e)+APP_B|UILDER_T|
|00003ad0| 4f 50 4d 45 4e 55 5f 53 | 55 46 46 49 58 0d 0a 09 |OPMENU_S|UFFIX...|
|00003ae0| 09 09 54 48 49 53 2e 41 | 64 6a 75 73 74 50 72 6f |..THIS.A|djustPro|
|00003af0| 70 65 72 74 69 65 73 28 | 22 63 53 74 61 72 74 75 |perties(|"cStartu|
|00003b00| 70 4d 65 6e 75 50 61 64 | 22 2c 22 22 29 0d 0a 09 |pMenuPad|","")...|
|00003b10| 09 09 54 48 49 53 2e 41 | 64 6a 75 73 74 50 72 6f |..THIS.A|djustPro|
|00003b20| 70 65 72 74 69 65 73 28 | 22 63 53 74 61 72 74 75 |perties(|"cStartu|
|00003b30| 70 4d 65 6e 75 50 6f 70 | 75 70 22 2c 22 22 29 0d |pMenuPop|up","").|
|00003b40| 0a 09 09 09 54 48 49 53 | 2e 41 64 6a 75 73 74 50 |....THIS|.AdjustP|
|00003b50| 72 6f 70 65 72 74 69 65 | 73 28 22 63 46 72 61 6d |ropertie|s("cFram|
|00003b60| 65 43 6c 61 73 73 22 2c | 3b 0d 0a 09 09 09 09 41 |eClass",|;......A|
|00003b70| 50 50 5f 42 55 49 4c 44 | 45 52 5f 43 4c 41 53 53 |PP_BUILD|ER_CLASS|
|00003b80| 5f 50 52 45 46 49 58 2b | 41 50 50 5f 42 55 49 4c |_PREFIX+|APP_BUIL|
|00003b90| 44 45 52 5f 54 4f 50 46 | 4f 52 4d 29 0d 0a 09 09 |DER_TOPF|ORM)....|
|00003ba0| 09 54 48 49 53 2e 41 64 | 6a 75 73 74 50 72 6f 70 |.THIS.Ad|justProp|
|00003bb0| 65 72 74 69 65 73 28 22 | 6c 52 65 61 64 45 76 65 |erties("|lReadEve|
|00003bc0| 6e 74 73 22 2c 2e 54 2e | 29 0d 0a 09 09 09 54 48 |nts",.T.|).....TH|
|00003bd0| 49 53 2e 55 70 64 61 74 | 65 4d 65 6e 75 28 6c 63 |IS.Updat|eMenu(lc|
|00003be0| 47 6f 4d 65 6e 75 2c 54 | 4f 50 4d 45 4e 55 5f 4f |GoMenu,T|OPMENU_O|
|00003bf0| 42 4a 54 59 50 45 29 0d | 0a 09 09 4f 54 48 45 52 |BJTYPE).|...OTHER|
|00003c00| 57 49 53 45 0d 0a 09 09 | 09 6c 63 4d 65 6e 75 4e |WISE....|.lcMenuN|
|00003c10| 61 6d 65 20 3d 20 4a 55 | 53 54 53 54 45 4d 28 54 |ame = JU|STSTEM(T|
|00003c20| 48 49 53 2e 6f 50 72 6f | 6a 65 63 74 2e 4e 61 6d |HIS.oPro|ject.Nam|
|00003c30| 65 29 2b 41 50 50 5f 42 | 55 49 4c 44 45 52 5f 4d |e)+APP_B|UILDER_M|
|00003c40| 41 49 4e 4d 45 4e 55 5f | 53 55 46 46 49 58 0d 0a |AINMENU_|SUFFIX..|
|00003c50| 09 09 09 54 48 49 53 2e | 41 64 6a 75 73 74 50 72 |...THIS.|AdjustPr|
|00003c60| 6f 70 65 72 74 69 65 73 | 28 22 63 53 74 61 72 74 |operties|("cStart|
|00003c70| 75 70 4d 65 6e 75 50 61 | 64 22 2c 22 22 29 0d 0a |upMenuPa|d","")..|
|00003c80| 09 09 09 54 48 49 53 2e | 41 64 6a 75 73 74 50 72 |...THIS.|AdjustPr|
|00003c90| 6f 70 65 72 74 69 65 73 | 28 22 63 53 74 61 72 74 |operties|("cStart|
|00003ca0| 75 70 4d 65 6e 75 50 6f | 70 75 70 22 2c 22 22 29 |upMenuPo|pup","")|
|00003cb0| 0d 0a 09 09 09 54 48 49 | 53 2e 41 64 6a 75 73 74 |.....THI|S.Adjust|
|00003cc0| 50 72 6f 70 65 72 74 69 | 65 73 28 22 63 46 72 61 |Properti|es("cFra|
|00003cd0| 6d 65 43 6c 61 73 73 22 | 2c 22 22 29 0d 0a 09 09 |meClass"|,"")....|
|00003ce0| 09 54 48 49 53 2e 41 64 | 6a 75 73 74 50 72 6f 70 |.THIS.Ad|justProp|
|00003cf0| 65 72 74 69 65 73 28 22 | 6c 52 65 61 64 45 76 65 |erties("|lReadEve|
|00003d00| 6e 74 73 22 2c 2e 54 2e | 29 0d 0a 09 09 09 54 48 |nts",.T.|).....TH|
|00003d10| 49 53 2e 55 70 64 61 74 | 65 4d 65 6e 75 28 6c 63 |IS.Updat|eMenu(lc|
|00003d20| 47 6f 4d 65 6e 75 2c 4e | 4f 52 4d 41 4c 4d 45 4e |GoMenu,N|ORMALMEN|
|00003d30| 55 5f 4f 42 4a 54 59 50 | 45 29 0d 0a 09 09 45 4e |U_OBJTYP|E)....EN|
|00003d40| 44 43 41 53 45 0d 0a 09 | 09 54 48 49 53 2e 41 64 |DCASE...|.THIS.Ad|
|00003d50| 6a 75 73 74 50 72 6f 70 | 65 72 74 69 65 73 28 22 |justProp|erties("|
|00003d60| 63 53 74 61 72 74 75 70 | 4d 65 6e 75 22 2c 6c 63 |cStartup|Menu",lc|
|00003d70| 4d 65 6e 75 4e 61 6d 65 | 29 0d 0a 09 09 54 48 49 |MenuName|)....THI|
|00003d80| 53 2e 6f 50 72 6f 6a 65 | 63 74 2e 46 69 6c 65 73 |S.oProje|ct.Files|
|00003d90| 2e 41 64 64 28 6c 63 4d | 65 6e 75 50 61 74 68 20 |.Add(lcM|enuPath |
|00003da0| 2b 20 6c 63 4d 65 6e 75 | 4e 61 6d 65 20 2b 20 22 |+ lcMenu|Name + "|
|00003db0| 2e 4d 4e 58 22 29 0d 0a | 09 09 49 46 20 54 59 50 |.MNX")..|..IF TYP|
|00003dc0| 45 28 27 54 48 49 53 2e | 6f 50 72 6f 6a 65 63 74 |E('THIS.|oProject|
|00003dd0| 2e 46 69 6c 65 73 5b 6c | 63 4f 6c 64 4d 65 6e 75 |.Files[l|cOldMenu|
|00003de0| 4e 61 6d 65 5d 2e 4e 61 | 6d 65 27 29 3d 22 43 22 |Name].Na|me')="C"|
|00003df0| 0d 0a 09 09 09 54 48 49 | 53 2e 6f 50 72 6f 6a 65 |.....THI|S.oProje|
|00003e00| 63 74 2e 46 69 6c 65 73 | 5b 6c 63 4f 6c 64 4d 65 |ct.Files|[lcOldMe|
|00003e10| 6e 75 4e 61 6d 65 5d 2e | 52 65 6d 6f 76 65 28 29 |nuName].|Remove()|
|00003e20| 0d 0a 09 09 45 4e 44 49 | 46 0d 0a 09 45 4e 44 49 |....ENDI|F...ENDI|
|00003e30| 46 0d 0a 45 4e 44 57 49 | 54 48 0d 0a 0d 0a 2a 20 |F..ENDWI|TH....* |
|00003e40| 55 70 64 61 74 65 20 56 | 65 72 73 69 6f 6e 20 50 |Update V|ersion P|
|00003e50| 61 67 65 0d 0a 57 49 54 | 48 20 54 48 49 53 2e 70 |age..WIT|H THIS.p|
|00003e60| 66 31 2e 70 67 43 72 65 | 64 69 74 73 0d 0a 09 54 |f1.pgCre|dits...T|
|00003e70| 48 49 53 2e 41 64 6a 75 | 73 74 50 72 6f 70 65 72 |HIS.Adju|stProper|
|00003e80| 74 69 65 73 28 22 63 41 | 75 74 68 6f 72 22 2c 2e |ties("cA|uthor",.|
|00003e90| 74 78 74 41 75 74 68 6f | 72 2e 56 61 6c 75 65 29 |txtAutho|r.Value)|
|00003ea0| 0d 0a 09 54 48 49 53 2e | 41 64 6a 75 73 74 50 72 |...THIS.|AdjustPr|
|00003eb0| 6f 70 65 72 74 69 65 73 | 28 22 63 43 6f 6d 70 61 |operties|("cCompa|
|00003ec0| 6e 79 22 2c 2e 74 78 74 | 43 6f 6d 70 61 6e 79 2e |ny",.txt|Company.|
|00003ed0| 56 61 6c 75 65 29 0d 0a | 09 54 48 49 53 2e 41 64 |Value)..|.THIS.Ad|
|00003ee0| 6a 75 73 74 50 72 6f 70 | 65 72 74 69 65 73 28 22 |justProp|erties("|
|00003ef0| 63 56 65 72 73 69 6f 6e | 22 2c 54 52 41 4e 53 28 |cVersion|",TRANS(|
|00003f00| 2e 74 78 74 56 65 72 73 | 69 6f 6e 2e 56 61 6c 75 |.txtVers|ion.Valu|
|00003f10| 65 29 29 0d 0a 09 54 48 | 49 53 2e 41 64 6a 75 73 |e))...TH|IS.Adjus|
|00003f20| 74 50 72 6f 70 65 72 74 | 69 65 73 28 22 63 43 6f |tPropert|ies("cCo|
|00003f30| 70 79 72 69 67 68 74 22 | 2c 54 52 41 4e 53 28 2e |pyright"|,TRANS(.|
|00003f40| 74 78 74 43 6f 70 79 72 | 69 67 68 74 2e 56 61 6c |txtCopyr|ight.Val|
|00003f50| 75 65 29 29 0d 0a 09 54 | 48 49 53 2e 41 64 6a 75 |ue))...T|HIS.Adju|
|00003f60| 73 74 50 72 6f 70 65 72 | 74 69 65 73 28 22 63 54 |stProper|ties("cT|
|00003f70| 72 61 64 65 6d 61 72 6b | 22 2c 54 52 41 4e 53 28 |rademark|",TRANS(|
|00003f80| 2e 74 78 74 54 72 61 64 | 65 6d 61 72 6b 2e 56 61 |.txtTrad|emark.Va|
|00003f90| 6c 75 65 29 29 0d 0a 09 | 49 46 20 21 45 4d 50 54 |lue))...|IF !EMPT|
|00003fa0| 59 28 2e 74 78 74 43 6f | 6d 70 61 6e 79 2e 56 61 |Y(.txtCo|mpany.Va|
|00003fb0| 6c 75 65 29 0d 0a 09 09 | 54 48 49 53 2e 6f 50 72 |lue)....|THIS.oPr|
|00003fc0| 6f 6a 65 63 74 2e 56 65 | 72 73 69 6f 6e 43 6f 6d |oject.Ve|rsionCom|
|00003fd0| 70 61 6e 79 20 3d 20 2e | 74 78 74 43 6f 6d 70 61 |pany = .|txtCompa|
|00003fe0| 6e 79 2e 56 61 6c 75 65 | 0d 0a 09 45 4e 44 49 46 |ny.Value|...ENDIF|
|00003ff0| 0d 0a 09 49 46 20 21 45 | 4d 50 54 59 28 54 52 41 |...IF !E|MPTY(TRA|
|00004000| 4e 53 28 2e 74 78 74 43 | 6f 70 79 72 69 67 68 74 |NS(.txtC|opyright|
|00004010| 2e 56 61 6c 75 65 29 29 | 0d 0a 09 09 54 48 49 53 |.Value))|....THIS|
|00004020| 2e 6f 50 72 6f 6a 65 63 | 74 2e 56 65 72 73 69 6f |.oProjec|t.Versio|
|00004030| 6e 43 6f 70 79 72 69 67 | 68 74 20 3d 20 54 52 41 |nCopyrig|ht = TRA|
|00004040| 4e 53 28 2e 74 78 74 43 | 6f 70 79 72 69 67 68 74 |NS(.txtC|opyright|
|00004050| 2e 56 61 6c 75 65 29 0d | 0a 09 45 4e 44 49 46 0d |.Value).|..ENDIF.|
|00004060| 0a 09 49 46 20 21 45 4d | 50 54 59 28 54 52 41 4e |..IF !EM|PTY(TRAN|
|00004070| 53 28 2e 74 78 74 54 72 | 61 64 65 6d 61 72 6b 2e |S(.txtTr|ademark.|
|00004080| 56 61 6c 75 65 29 29 0d | 0a 09 09 54 48 49 53 2e |Value)).|...THIS.|
|00004090| 6f 50 72 6f 6a 65 63 74 | 2e 56 65 72 73 69 6f 6e |oProject|.Version|
|000040a0| 54 72 61 64 65 6d 61 72 | 6b 73 20 3d 20 54 52 41 |Trademar|ks = TRA|
|000040b0| 4e 53 28 2e 74 78 74 54 | 72 61 64 65 6d 61 72 6b |NS(.txtT|rademark|
|000040c0| 2e 56 61 6c 75 65 29 0d | 0a 09 45 4e 44 49 46 0d |.Value).|..ENDIF.|
|000040d0| 0a 45 4e 44 57 49 54 48 | 0d 0a 0d 0a 2a 20 55 70 |.ENDWITH|....* Up|
|000040e0| 64 61 74 65 20 41 64 76 | 61 6e 63 65 64 20 50 61 |date Adv|anced Pa|
|000040f0| 67 65 0d 0a 57 49 54 48 | 20 54 48 49 53 2e 70 66 |ge..WITH| THIS.pf|
|00004100| 31 2e 70 67 41 64 76 0d | 0a 09 54 48 49 53 2e 41 |1.pgAdv.|..THIS.A|
|00004110| 64 6a 75 73 74 50 72 6f | 70 65 72 74 69 65 73 28 |djustPro|perties(|
|00004120| 22 63 48 65 6c 70 46 69 | 6c 65 22 2c 2e 74 78 74 |"cHelpFi|le",.txt|
|00004130| 48 65 6c 70 46 69 6c 65 | 2e 56 61 6c 75 65 29 0d |HelpFile|.Value).|
|00004140| 0a 09 54 48 49 53 2e 41 | 64 6a 75 73 74 50 72 6f |..THIS.A|djustPro|
|00004150| 70 65 72 74 69 65 73 28 | 22 63 44 61 74 61 46 6f |perties(|"cDataFo|
|00004160| 6c 64 65 72 22 2c 2e 74 | 78 74 44 61 74 61 46 6f |lder",.t|xtDataFo|
|00004170| 6c 64 65 72 2e 56 61 6c | 75 65 29 0d 0a 09 54 48 |lder.Val|ue)...TH|
|00004180| 49 53 2e 41 64 6a 75 73 | 74 50 72 6f 70 65 72 74 |IS.Adjus|tPropert|
|00004190| 69 65 73 28 22 6c 46 61 | 76 6f 72 69 74 65 73 22 |ies("lFa|vorites"|
|000041a0| 2c 2e 63 68 6b 46 61 76 | 6f 72 69 74 65 73 2e 56 |,.chkFav|orites.V|
|000041b0| 61 6c 75 65 29 0d 0a 09 | 54 48 49 53 2e 41 64 6a |alue)...|THIS.Adj|
|000041c0| 75 73 74 50 72 6f 70 65 | 72 74 69 65 73 28 22 6c |ustPrope|rties("l|
|000041d0| 53 74 61 72 74 75 70 54 | 6f 6f 6c 62 61 72 22 2c |StartupT|oolbar",|
|000041e0| 2e 63 68 6b 54 6f 6f 6c | 62 61 72 2e 56 61 6c 75 |.chkTool|bar.Valu|
|000041f0| 65 29 0d 0a 45 4e 44 57 | 49 54 48 0d 0a 0d 0a 2a |e)..ENDW|ITH....*|
|00004200| 20 4c 6f 63 61 74 65 20 | 73 70 6c 61 73 68 20 63 | Locate |splash c|
|00004210| 6c 61 73 73 0d 0a 4c 4f | 43 41 54 45 20 46 4f 52 |lass..LO|CATE FOR|
|00004220| 20 41 4c 4c 54 52 28 4c | 4f 57 45 52 28 6f 62 6a | ALLTR(L|OWER(obj|
|00004230| 4e 61 6d 65 29 29 20 3d | 3d 20 4c 4f 57 45 52 28 |Name)) =|= LOWER(|
|00004240| 63 53 70 6c 61 73 68 43 | 6c 61 73 73 29 20 41 4e |cSplashC|lass) AN|
|00004250| 44 20 4e 4f 54 20 44 45 | 4c 45 54 45 44 28 29 0d |D NOT DE|LETED().|
|00004260| 0a 49 46 20 4e 4f 54 20 | 46 4f 55 4e 44 28 29 0d |.IF NOT |FOUND().|
|00004270| 0a 09 4d 45 53 53 41 47 | 45 42 4f 58 28 43 5f 4e |..MESSAG|EBOX(C_N|
|00004280| 4f 53 50 4c 41 53 48 5f | 4c 4f 43 29 0d 0a 45 4c |OSPLASH_|LOC)..EL|
|00004290| 53 45 0d 0a 09 57 49 54 | 48 20 54 48 49 53 2e 70 |SE...WIT|H THIS.p|
|000042a0| 66 31 2e 70 67 41 70 70 | 0d 0a 09 09 54 48 49 53 |f1.pgApp|....THIS|
|000042b0| 2e 41 64 6a 75 73 74 50 | 72 6f 70 65 72 74 69 65 |.AdjustP|ropertie|
|000042c0| 73 28 22 63 43 61 70 74 | 69 6f 6e 22 2c 2e 74 78 |s("cCapt|ion",.tx|
|000042d0| 74 41 70 70 4e 61 6d 65 | 2e 56 61 6c 75 65 29 0d |tAppName|.Value).|
|000042e0| 0a 09 09 54 48 49 53 2e | 41 64 6a 75 73 74 50 72 |...THIS.|AdjustPr|
|000042f0| 6f 70 65 72 74 69 65 73 | 28 22 63 49 6d 61 67 65 |operties|("cImage|
|00004300| 22 2c 2e 74 78 74 41 70 | 70 49 6d 61 67 65 2e 56 |",.txtAp|pImage.V|
|00004310| 61 6c 75 65 29 0d 0a 09 | 45 4e 44 57 49 54 48 0d |alue)...|ENDWITH.|
|00004320| 0a 09 57 49 54 48 20 54 | 48 49 53 2e 70 66 31 2e |..WITH T|HIS.pf1.|
|00004330| 70 67 43 72 65 64 69 74 | 73 0d 0a 09 09 54 48 49 |pgCredit|s....THI|
|00004340| 53 2e 41 64 6a 75 73 74 | 50 72 6f 70 65 72 74 69 |S.Adjust|Properti|
|00004350| 65 73 28 22 63 41 75 74 | 68 6f 72 22 2c 2e 74 78 |es("cAut|hor",.tx|
|00004360| 74 41 75 74 68 6f 72 2e | 56 61 6c 75 65 29 0d 0a |tAuthor.|Value)..|
|00004370| 09 09 54 48 49 53 2e 41 | 64 6a 75 73 74 50 72 6f |..THIS.A|djustPro|
|00004380| 70 65 72 74 69 65 73 28 | 22 63 43 6f 6d 70 61 6e |perties(|"cCompan|
|00004390| 79 22 2c 2e 74 78 74 43 | 6f 6d 70 61 6e 79 2e 56 |y",.txtC|ompany.V|
|000043a0| 61 6c 75 65 29 0d 0a 09 | 09 54 48 49 53 2e 41 64 |alue)...|.THIS.Ad|
|000043b0| 6a 75 73 74 50 72 6f 70 | 65 72 74 69 65 73 28 22 |justProp|erties("|
|000043c0| 63 56 65 72 73 69 6f 6e | 22 2c 54 52 41 4e 53 28 |cVersion|",TRANS(|
|000043d0| 2e 74 78 74 56 65 72 73 | 69 6f 6e 2e 56 61 6c 75 |.txtVers|ion.Valu|
|000043e0| 65 29 29 0d 0a 09 09 54 | 48 49 53 2e 41 64 6a 75 |e))....T|HIS.Adju|
|000043f0| 73 74 50 72 6f 70 65 72 | 74 69 65 73 28 22 63 43 |stProper|ties("cC|
|00004400| 6f 70 79 72 69 67 68 74 | 22 2c 54 52 41 4e 53 28 |opyright|",TRANS(|
|00004410| 2e 74 78 74 43 6f 70 79 | 72 69 67 68 74 2e 56 61 |.txtCopy|right.Va|
|00004420| 6c 75 65 29 29 0d 0a 09 | 09 54 48 49 53 2e 41 64 |lue))...|.THIS.Ad|
|00004430| 6a 75 73 74 50 72 6f 70 | 65 72 74 69 65 73 28 22 |justProp|erties("|
|00004440| 63 54 72 61 64 65 6d 61 | 72 6b 22 2c 54 52 41 4e |cTradema|rk",TRAN|
|00004450| 53 28 2e 74 78 74 54 72 | 61 64 65 6d 61 72 6b 2e |S(.txtTr|ademark.|
|00004460| 56 61 6c 75 65 29 29 0d | 0a 09 45 4e 44 57 49 54 |Value)).|..ENDWIT|
|00004470| 48 0d 0a 45 4e 44 49 46 | 0d 0a 55 53 45 0d 0a 53 |H..ENDIF|..USE..S|
|00004480| 45 4c 45 43 54 20 28 6d | 2e 6e 53 61 76 65 41 72 |ELECT (m|.nSaveAr|
|00004490| 65 61 29 0d 0a 53 45 54 | 20 4d 45 4d 4f 57 49 44 |ea)..SET| MEMOWID|
|000044a0| 54 48 20 54 4f 20 6d 2e | 6e 4d 65 6d 6f 57 69 64 |TH TO m.|nMemoWid|
|000044b0| 74 68 0d 0a 0d 0a 2a 20 | 41 64 6a 75 73 74 20 2e |th....* |Adjust .|
|000044c0| 48 20 68 65 61 64 65 72 | 20 66 69 6c 65 20 66 6f |H header| file fo|
|000044d0| 72 20 53 70 6c 61 73 68 | 20 73 63 72 65 65 6e 0d |r Splash| screen.|
|000044e0| 0a 49 46 20 54 48 49 53 | 2e 70 66 31 2e 70 67 41 |.IF THIS|.pf1.pgA|
|000044f0| 70 70 2e 63 68 6b 53 70 | 6c 61 73 68 2e 56 61 6c |pp.chkSp|lash.Val|
|00004500| 75 65 20 23 20 54 48 49 | 53 2e 6c 48 61 73 53 70 |ue # THI|S.lHasSp|
|00004510| 6c 61 73 68 0d 0a 09 6c | 63 48 65 61 64 65 72 46 |lash...l|cHeaderF|
|00004520| 69 6c 65 20 3d 20 41 44 | 44 42 53 28 4a 55 53 54 |ile = AD|DBS(JUST|
|00004530| 50 41 54 48 28 54 48 49 | 53 2e 6f 50 72 6f 6a 65 |PATH(THI|S.oProje|
|00004540| 63 74 2e 4e 61 6d 65 29 | 29 20 2b 20 3b 0d 0a 09 |ct.Name)|) + ;...|
|00004550| 09 4a 55 53 54 53 54 45 | 4d 28 54 48 49 53 2e 6f |.JUSTSTE|M(THIS.o|
|00004560| 50 72 6f 6a 65 63 74 2e | 4e 61 6d 65 29 20 2b 20 |Project.|Name) + |
|00004570| 41 50 50 5f 42 55 49 4c | 44 45 52 5f 46 49 4c 45 |APP_BUIL|DER_FILE|
|00004580| 5f 53 55 46 46 49 58 20 | 2b 20 22 2e 48 22 0d 0a |_SUFFIX |+ ".H"..|
|00004590| 09 6c 63 43 6f 6e 74 65 | 6e 74 73 20 3d 22 22 0d |.lcConte|nts ="".|
|000045a0| 0a 09 6c 63 43 6f 6e 74 | 65 6e 74 73 20 3d 20 46 |..lcCont|ents = F|
|000045b0| 49 4c 45 54 4f 53 54 52 | 28 6c 63 48 65 61 64 65 |ILETOSTR|(lcHeade|
|000045c0| 72 46 69 6c 65 29 0d 0a | 09 49 46 20 45 4d 50 54 |rFile)..|.IF EMPT|
|000045d0| 59 28 6c 63 43 6f 6e 74 | 65 6e 74 73 29 09 26 26 |Y(lcCont|ents).&&|
|000045e0| 66 61 69 6c 65 64 20 74 | 6f 20 6f 70 65 6e 20 66 |failed t|o open f|
|000045f0| 69 6c 65 20 2d 20 6d 61 | 79 20 62 65 20 69 6e 20 |ile - ma|y be in |
|00004600| 75 73 65 0d 0a 09 09 52 | 45 54 55 52 4e 0d 0a 09 |use....R|ETURN...|
|00004610| 45 4e 44 49 46 0d 0a 09 | 6c 63 53 70 6c 61 73 68 |ENDIF...|lcSplash|
|00004620| 44 65 66 69 6e 65 53 74 | 72 69 6e 67 20 3d 20 22 |DefineSt|ring = "|
|00004630| 23 44 45 46 49 4e 45 20 | 41 50 50 5f 53 50 4c 41 |#DEFINE |APP_SPLA|
|00004640| 53 48 43 4c 41 53 53 20 | 22 0d 0a 09 2a 20 74 68 |SHCLASS |"...* th|
|00004650| 65 20 66 69 6e 61 6c 20 | 73 70 61 63 65 20 69 6e |e final |space in|
|00004660| 20 74 68 65 20 73 74 72 | 69 6e 67 20 61 62 6f 76 | the str|ing abov|
|00004670| 65 20 69 73 20 64 65 6c | 69 62 65 72 61 74 65 2c |e is del|iberate,|
|00004680| 20 74 6f 0d 0a 09 2a 20 | 64 69 73 74 69 6e 67 75 | to...* |distingu|
|00004690| 69 73 68 20 62 65 74 77 | 65 65 6e 20 74 68 69 73 |ish betw|een this|
|000046a0| 20 23 44 45 46 49 4e 45 | 20 61 6e 64 20 74 68 65 | #DEFINE| and the|
|000046b0| 20 41 50 50 5f 53 50 4c | 41 53 48 43 4c 41 53 53 | APP_SPL|ASHCLASS|
|000046c0| 4c 49 42 2c 0d 0a 09 2a | 20 69 6e 20 63 61 73 65 |LIB,...*| in case|
|000046d0| 20 73 6f 6d 65 62 6f 64 | 79 20 63 68 61 6e 67 65 | somebod|y change|
|000046e0| 73 20 74 68 65 20 6f 72 | 64 65 72 20 6f 66 20 74 |s the or|der of t|
|000046f0| 68 65 73 65 20 74 77 6f | 20 6c 69 6e 65 73 20 69 |hese two| lines i|
|00004700| 6e 20 74 68 65 20 48 20 | 66 69 6c 65 2e 0d 0a 09 |n the H |file....|
|00004710| 53 45 54 20 4d 45 4d 4f | 57 49 44 54 48 20 54 4f |SET MEMO|WIDTH TO|
|00004720| 20 35 30 0d 0a 09 6c 69 | 48 65 61 64 65 72 4c 69 | 50...li|HeaderLi|
|00004730| 6e 65 20 3d 20 41 54 43 | 4c 49 4e 45 28 6c 63 53 |ne = ATC|LINE(lcS|
|00004740| 70 6c 61 73 68 44 65 66 | 69 6e 65 53 74 72 69 6e |plashDef|ineStrin|
|00004750| 67 2c 6c 63 43 6f 6e 74 | 65 6e 74 73 29 0d 0a 09 |g,lcCont|ents)...|
|00004760| 6c 63 48 65 61 64 65 72 | 4c 69 6e 65 20 3d 20 4d |lcHeader|Line = M|
|00004770| 4c 49 4e 45 28 6c 63 43 | 6f 6e 74 65 6e 74 73 2c |LINE(lcC|ontents,|
|00004780| 6c 69 48 65 61 64 65 72 | 4c 69 6e 65 29 0d 0a 09 |liHeader|Line)...|
|00004790| 49 46 20 4e 4f 54 20 54 | 48 49 53 2e 70 66 31 2e |IF NOT T|HIS.pf1.|
|000047a0| 70 67 41 70 70 2e 63 68 | 6b 53 70 6c 61 73 68 2e |pgApp.ch|kSplash.|
|000047b0| 56 61 6c 75 65 0d 0a 09 | 09 6c 63 53 70 6c 61 73 |Value...|.lcSplas|
|000047c0| 68 44 65 66 69 6e 65 53 | 74 72 69 6e 67 20 3d 20 |hDefineS|tring = |
|000047d0| 22 2a 20 22 20 2b 20 6c | 63 53 70 6c 61 73 68 44 |"* " + l|cSplashD|
|000047e0| 65 66 69 6e 65 53 74 72 | 69 6e 67 0d 0a 09 45 4e |efineStr|ing...EN|
|000047f0| 44 49 46 0d 0a 09 6c 63 | 43 6f 6e 74 65 6e 74 73 |DIF...lc|Contents|
|00004800| 20 3d 20 53 54 52 54 52 | 41 4e 28 6c 63 43 6f 6e | = STRTR|AN(lcCon|
|00004810| 74 65 6e 74 73 2c 6c 63 | 48 65 61 64 65 72 4c 69 |tents,lc|HeaderLi|
|00004820| 6e 65 2c 20 3b 0d 0a 09 | 20 20 20 20 20 6c 63 53 |ne, ;...| lcS|
|00004830| 70 6c 61 73 68 44 65 66 | 69 6e 65 53 74 72 69 6e |plashDef|ineStrin|
|00004840| 67 2b 53 50 41 43 45 28 | 31 30 29 2b 20 5b 22 5d |g+SPACE(|10)+ ["]|
|00004850| 2b 63 53 70 6c 61 73 68 | 43 6c 61 73 73 2b 5b 22 |+cSplash|Class+["|
|00004860| 5d 29 0d 0a 09 63 53 61 | 66 65 74 79 20 3d 20 53 |])...cSa|fety = S|
|00004870| 45 54 28 22 53 41 46 45 | 54 59 22 29 0d 0a 09 53 |ET("SAFE|TY")...S|
|00004880| 45 54 20 53 41 46 45 54 | 59 20 4f 46 46 0d 0a 09 |ET SAFET|Y OFF...|
|00004890| 53 54 52 54 4f 46 49 4c | 45 28 6c 63 43 6f 6e 74 |STRTOFIL|E(lcCont|
|000048a0| 65 6e 74 73 2c 6c 63 48 | 65 61 64 65 72 46 69 6c |ents,lcH|eaderFil|
|000048b0| 65 29 0d 0a 09 53 45 54 | 20 53 41 46 45 54 59 20 |e)...SET| SAFETY |
|000048c0| 26 63 53 61 66 65 74 79 | 0d 0a 09 53 45 54 20 4d |&cSafety|...SET M|
|000048d0| 45 4d 4f 57 49 44 54 48 | 20 54 4f 20 6d 2e 6e 4d |EMOWIDTH| TO m.nM|
|000048e0| 65 6d 6f 57 69 64 74 68 | 0d 0a 45 4e 44 49 46 0d |emoWidth|..ENDIF.|
|000048f0| 0a 0d 0a 54 48 49 53 46 | 4f 52 4d 2e 57 72 69 74 |...THISF|ORM.Writ|
|00004900| 65 4c 6f 67 28 4c 4f 47 | 5f 55 50 44 41 54 45 5f |eLog(LOG|_UPDATE_|
|00004910| 4c 4f 43 29 0d 0a 0d 0a | 57 41 49 54 20 43 4c 45 |LOC)....|WAIT CLE|
|00004920| 41 52 0d 0a 0d 0a 45 4e | 44 50 52 4f 43 0d 0a 50 |AR....EN|DPROC..P|
|00004930| 52 4f 43 45 44 55 52 45 | 20 61 64 6a 75 73 74 70 |ROCEDURE| adjustp|
|00004940| 72 6f 70 65 72 74 69 65 | 73 0d 0a 4c 50 41 52 41 |ropertie|s..LPARA|
|00004950| 4d 45 54 45 52 53 20 74 | 63 50 72 6f 70 65 72 74 |METERS t|cPropert|
|00004960| 79 2c 74 76 56 61 6c 75 | 65 0d 0a 0d 0a 2a 20 74 |y,tvValu|e....* t|
|00004970| 68 69 73 20 66 75 6e 63 | 74 69 6f 6e 20 61 73 73 |his func|tion ass|
|00004980| 75 6d 65 73 20 74 68 61 | 74 20 79 6f 75 20 61 72 |umes tha|t you ar|
|00004990| 65 20 70 6f 69 6e 74 65 | 64 0d 0a 2a 20 61 74 20 |e pointe|d..* at |
|000049a0| 74 68 65 20 72 69 67 68 | 74 20 72 65 63 6f 72 64 |the righ|t record|
|000049b0| 20 6f 66 20 61 20 56 43 | 58 20 61 6c 72 65 61 64 | of a VC|X alread|
|000049c0| 79 2e 2e 2e 2e 0d 0a 41 | 53 53 45 52 54 20 54 59 |y......A|SSERT TY|
|000049d0| 50 45 28 41 4c 49 41 53 | 28 29 2b 22 2e 50 72 6f |PE(ALIAS|()+".Pro|
|000049e0| 70 65 72 74 69 65 73 22 | 29 20 3d 20 22 4d 22 20 |perties"|) = "M" |
|000049f0| 41 4e 44 20 4e 4f 54 20 | 45 4f 46 28 29 0d 0a 49 |AND NOT |EOF()..I|
|00004a00| 46 20 56 41 52 54 59 50 | 45 28 22 74 63 50 72 6f |F VARTYP|E("tcPro|
|00004a10| 70 65 72 74 79 22 29 23 | 22 43 22 20 4f 52 20 45 |perty")#|"C" OR E|
|00004a20| 4d 50 54 59 28 74 63 50 | 72 6f 70 65 72 74 79 29 |MPTY(tcP|roperty)|
|00004a30| 0d 0a 09 52 45 54 55 52 | 4e 0d 0a 45 4e 44 49 46 |...RETUR|N..ENDIF|
|00004a40| 0d 0a 4c 4f 43 41 4c 20 | 6c 69 4c 69 6e 65 73 2c |..LOCAL |liLines,|
|00004a50| 20 6c 63 50 72 6f 70 65 | 72 74 69 65 73 2c 20 6c | lcPrope|rties, l|
|00004a60| 63 56 61 6c 75 65 2c 20 | 3b 0d 0a 09 6c 6c 46 6f |cValue, |;...llFo|
|00004a70| 75 6e 64 2c 20 6c 69 50 | 6f 73 2c 20 6c 63 4c 69 |und, liP|os, lcLi|
|00004a80| 6e 65 2c 20 6c 69 49 6e | 64 65 78 2c 20 6c 63 4e |ne, liIn|dex, lcN|
|00004a90| 65 77 4c 69 6e 65 0d 0a | 0d 0a 6c 69 4c 69 6e 65 |ewLine..|..liLine|
|00004aa0| 73 20 3d 20 4d 45 4d 4c | 49 4e 45 53 28 50 72 6f |s = MEML|INES(Pro|
|00004ab0| 70 65 72 74 69 65 73 29 | 0d 0a 6c 63 50 72 6f 70 |perties)|..lcProp|
|00004ac0| 65 72 74 69 65 73 20 3d | 20 50 72 6f 70 65 72 74 |erties =| Propert|
|00004ad0| 69 65 73 0d 0a 5f 4d 4c | 49 4e 45 20 3d 20 30 0d |ies.._ML|INE = 0.|
|00004ae0| 0a 0d 0a 44 4f 20 43 41 | 53 45 0d 0a 09 43 41 53 |...DO CA|SE...CAS|
|00004af0| 45 20 50 43 4f 55 4e 54 | 28 29 20 3c 20 32 0d 0a |E PCOUNT|() < 2..|
|00004b00| 09 09 6c 63 56 61 6c 75 | 65 20 3d 20 4e 55 4c 4c |..lcValu|e = NULL|
|00004b10| 0d 0a 09 43 41 53 45 20 | 56 41 52 54 59 50 45 28 |...CASE |VARTYPE(|
|00004b20| 74 76 56 61 6c 75 65 29 | 20 3d 20 22 43 22 0d 0a |tvValue)| = "C"..|
|00004b30| 09 09 6c 63 56 61 6c 75 | 65 20 3d 20 41 4c 4c 54 |..lcValu|e = ALLT|
|00004b40| 52 49 4d 28 74 76 56 61 | 6c 75 65 29 0d 0a 09 09 |RIM(tvVa|lue)....|
|00004b50| 2a 6c 63 56 61 6c 75 65 | 20 3d 20 5b 28 22 5d 2b |*lcValue| = [("]+|
|00004b60| 74 76 56 61 6c 75 65 2b | 5b 22 29 5d 0d 0a 09 4f |tvValue+|[")]...O|
|00004b70| 54 48 45 52 57 49 53 45 | 0d 0a 09 09 6c 63 56 61 |THERWISE|....lcVa|
|00004b80| 6c 75 65 20 3d 20 54 52 | 41 4e 53 46 4f 52 4d 28 |lue = TR|ANSFORM(|
|00004b90| 74 76 56 61 6c 75 65 29 | 0d 0a 45 4e 44 43 41 53 |tvValue)|..ENDCAS|
|00004ba0| 45 0d 0a 0d 0a 49 46 20 | 56 41 52 54 59 50 45 28 |E....IF |VARTYPE(|
|00004bb0| 6c 63 56 61 6c 75 65 29 | 20 3d 20 22 43 22 0d 0a |lcValue)| = "C"..|
|00004bc0| 09 6c 63 56 61 6c 75 65 | 20 3d 20 4c 45 46 54 43 |.lcValue| = LEFTC|
|00004bd0| 28 41 4c 4c 54 52 49 4d | 28 6c 63 56 61 6c 75 65 |(ALLTRIM|(lcValue|
|00004be0| 29 2c 31 32 38 29 0d 0a | 45 4e 44 49 46 0d 0a 0d |),128)..|ENDIF...|
|00004bf0| 0a 46 4f 52 20 6c 69 49 | 6e 64 65 78 20 3d 20 31 |.FOR liI|ndex = 1|
|00004c00| 20 54 4f 20 6c 69 4c 69 | 6e 65 73 0d 0a 09 6c 63 | TO liLi|nes...lc|
|00004c10| 4c 69 6e 65 20 3d 20 4d | 4c 49 4e 45 28 6c 63 50 |Line = M|LINE(lcP|
|00004c20| 72 6f 70 65 72 74 69 65 | 73 2c 20 31 2c 20 5f 4d |ropertie|s, 1, _M|
|00004c30| 4c 49 4e 45 29 0d 0a 09 | 49 46 20 4e 4f 54 20 45 |LINE)...|IF NOT E|
|00004c40| 4d 50 54 59 28 41 54 43 | 28 74 63 50 72 6f 70 65 |MPTY(ATC|(tcPrope|
|00004c50| 72 74 79 2b 22 20 3d 22 | 2c 6c 63 4c 69 6e 65 29 |rty+" ="|,lcLine)|
|00004c60| 29 0d 0a 09 09 2a 20 4e | 65 65 64 20 74 6f 20 61 |)....* N|eed to a|
|00004c70| 64 6a 75 73 74 20 68 65 | 72 65 20 73 69 6e 63 65 |djust he|re since|
|00004c80| 20 4d 4c 49 4e 45 28 29 | 20 72 65 6d 6f 76 65 73 | MLINE()| removes|
|00004c90| 20 74 72 61 69 6c 69 6e | 67 20 73 70 61 63 65 73 | trailin|g spaces|
|00004ca0| 0d 0a 09 09 49 46 20 55 | 50 50 45 52 28 74 63 50 |....IF U|PPER(tcP|
|00004cb0| 72 6f 70 65 72 74 79 29 | 2b 22 20 3d 22 20 3d 3d |roperty)|+" =" ==|
|00004cc0| 20 55 50 50 45 52 28 6c | 63 4c 69 6e 65 29 0d 0a | UPPER(l|cLine)..|
|00004cd0| 09 09 09 6c 63 4c 69 6e | 65 3d 6c 63 4c 69 6e 65 |...lcLin|e=lcLine|
|00004ce0| 2b 22 20 22 0d 0a 09 09 | 45 4e 44 49 46 0d 0a 09 |+" "....|ENDIF...|
|00004cf0| 09 49 46 20 49 53 4e 55 | 4c 4c 28 6c 63 56 61 6c |.IF ISNU|LL(lcVal|
|00004d00| 75 65 29 20 26 26 20 72 | 65 73 65 74 74 6f 64 65 |ue) && r|esettode|
|00004d10| 66 61 75 6c 74 0d 0a 09 | 09 09 6c 63 50 72 6f 70 |fault...|..lcProp|
|00004d20| 65 72 74 69 65 73 20 3d | 20 53 54 52 54 52 41 4e |erties =| STRTRAN|
|00004d30| 28 6c 63 50 72 6f 70 65 | 72 74 69 65 73 2c 6c 63 |(lcPrope|rties,lc|
|00004d40| 4c 69 6e 65 2b 43 48 52 | 28 31 33 29 2b 43 48 52 |Line+CHR|(13)+CHR|
|00004d50| 28 31 30 29 2c 22 22 29 | 0d 0a 09 09 45 4c 53 45 |(10),"")|....ELSE|
|00004d60| 0d 0a 09 09 09 6c 69 50 | 6f 73 20 3d 20 41 54 43 |.....liP|os = ATC|
|00004d70| 28 22 3d 22 2c 6c 63 4c | 69 6e 65 29 0d 0a 09 09 |("=",lcL|ine)....|
|00004d80| 09 6c 63 4e 65 77 4c 69 | 6e 65 20 3d 20 53 55 42 |.lcNewLi|ne = SUB|
|00004d90| 53 54 52 28 6c 63 4c 69 | 6e 65 2c 31 2c 6c 69 50 |STR(lcLi|ne,1,liP|
|00004da0| 6f 73 29 2b 22 20 22 2b | 6c 63 56 61 6c 75 65 0d |os)+" "+|lcValue.|
|00004db0| 0a 09 09 09 6c 63 50 72 | 6f 70 65 72 74 69 65 73 |....lcPr|operties|
|00004dc0| 20 3d 20 53 54 52 54 52 | 41 4e 28 6c 63 50 72 6f | = STRTR|AN(lcPro|
|00004dd0| 70 65 72 74 69 65 73 2c | 6c 63 4c 69 6e 65 2c 6c |perties,|lcLine,l|
|00004de0| 63 4e 65 77 4c 69 6e 65 | 29 0d 0a 09 09 45 4e 44 |cNewLine|)....END|
|00004df0| 49 46 0d 0a 09 09 6c 6c | 46 6f 75 6e 64 20 3d 20 |IF....ll|Found = |
|00004e00| 2e 54 2e 0d 0a 09 09 45 | 58 49 54 0d 0a 09 45 4e |.T.....E|XIT...EN|
|00004e10| 44 49 46 0d 0a 45 4e 44 | 46 4f 52 0d 0a 49 46 20 |DIF..END|FOR..IF |
|00004e20| 4e 4f 54 20 6c 6c 46 6f | 75 6e 64 20 41 4e 44 20 |NOT llFo|und AND |
|00004e30| 21 45 4d 50 54 59 28 6d | 2e 6c 63 56 61 6c 75 65 |!EMPTY(m|.lcValue|
|00004e40| 29 26 26 20 61 64 64 20 | 74 68 69 73 20 69 6e 66 |)&& add |this inf|
|00004e50| 6f 72 6d 61 74 69 6f 6e | 20 61 74 20 74 68 65 20 |ormation| at the |
|00004e60| 62 6f 74 74 6f 6d 0d 0a | 09 6c 63 50 72 6f 70 65 |bottom..|.lcPrope|
|00004e70| 72 74 69 65 73 20 3d 20 | 6c 63 50 72 6f 70 65 72 |rties = |lcProper|
|00004e80| 74 69 65 73 2b 20 3b 0d | 0a 09 09 41 4c 4c 54 52 |ties+ ;.|...ALLTR|
|00004e90| 28 74 63 50 72 6f 70 65 | 72 74 79 29 2b 22 20 3d |(tcPrope|rty)+" =|
|00004ea0| 20 22 2b 6c 63 56 61 6c | 75 65 20 2b 20 3b 0d 0a | "+lcVal|ue + ;..|
|00004eb0| 09 09 43 48 52 28 31 33 | 29 2b 43 48 52 28 31 30 |..CHR(13|)+CHR(10|
|00004ec0| 29 0d 0a 45 4e 44 49 46 | 0d 0a 0d 0a 52 45 50 4c |)..ENDIF|....REPL|
|00004ed0| 41 43 45 20 50 72 6f 70 | 65 72 74 69 65 73 20 57 |ACE Prop|erties W|
|00004ee0| 49 54 48 20 6c 63 50 72 | 6f 70 65 72 74 69 65 73 |ITH lcPr|operties|
|00004ef0| 0d 0a 0d 0a 52 45 54 55 | 52 4e 0d 0a 0d 0a 45 4e |....RETU|RN....EN|
|00004f00| 44 50 52 4f 43 0d 0a 50 | 52 4f 43 45 44 55 52 45 |DPROC..P|ROCEDURE|
|00004f10| 20 75 70 64 61 74 65 64 | 6f 63 73 0d 0a 4c 4f 43 | updated|ocs..LOC|
|00004f20| 41 4c 20 6e 53 61 76 65 | 41 72 65 61 0d 0a 6e 53 |AL nSave|Area..nS|
|00004f30| 61 76 65 41 72 65 61 20 | 3d 20 53 45 4c 45 43 54 |aveArea |= SELECT|
|00004f40| 28 29 0d 0a 0d 0a 49 46 | 20 45 4d 50 54 59 28 54 |()....IF| EMPTY(T|
|00004f50| 48 49 53 2e 63 4d 65 74 | 61 44 42 46 29 20 4f 52 |HIS.cMet|aDBF) OR|
|00004f60| 20 21 54 48 49 53 2e 4f | 70 65 6e 4d 65 74 61 28 | !THIS.O|penMeta(|
|00004f70| 29 0d 0a 09 52 45 54 55 | 52 4e 0d 0a 45 4e 44 49 |)...RETU|RN..ENDI|
|00004f80| 46 0d 0a 0d 0a 2a 20 55 | 70 64 61 74 65 20 46 6f |F....* U|pdate Fo|
|00004f90| 72 6d 73 20 6c 69 73 74 | 0d 0a 57 49 54 48 20 54 |rms list|..WITH T|
|00004fa0| 48 49 53 2e 70 66 31 2e | 70 67 46 6f 72 6d 73 0d |HIS.pf1.|pgForms.|
|00004fb0| 0a 09 2e 6c 73 74 46 6f | 72 6d 73 2e 43 6c 65 61 |...lstFo|rms.Clea|
|00004fc0| 72 0d 0a 09 53 43 41 4e | 20 46 4f 52 20 64 6f 63 |r...SCAN| FOR doc|
|00004fd0| 5f 74 79 70 65 20 3d 20 | 22 46 22 20 41 4e 44 20 |_type = |"F" AND |
|00004fe0| 21 44 45 4c 45 54 45 44 | 28 29 0d 0a 09 09 2e 6c |!DELETED|().....l|
|00004ff0| 73 74 46 6f 72 6d 73 2e | 41 64 64 49 74 65 6d 28 |stForms.|AddItem(|
|00005000| 41 4c 4c 54 52 49 4d 28 | 64 6f 63 5f 65 78 65 63 |ALLTRIM(|doc_exec|
|00005010| 29 2b 3b 0d 0a 09 09 09 | 49 49 46 28 21 45 4d 50 |)+;.....|IIF(!EMP|
|00005020| 54 59 28 64 6f 63 5f 63 | 6c 61 73 73 29 2c 22 20 |TY(doc_c|lass)," |
|00005030| 28 22 2b 41 4c 4c 54 52 | 49 4d 28 64 6f 63 5f 63 |("+ALLTR|IM(doc_c|
|00005040| 6c 61 73 73 29 2b 22 29 | 22 2c 22 22 29 29 0d 0a |lass)+")|",""))..|
|00005050| 09 45 4e 44 53 43 41 4e | 0d 0a 09 2e 6c 73 74 46 |.ENDSCAN|....lstF|
|00005060| 6f 72 6d 73 2e 56 61 6c | 75 65 20 3d 20 2e 6c 73 |orms.Val|ue = .ls|
|00005070| 74 46 6f 72 6d 73 2e 4c | 69 73 74 28 31 29 0d 0a |tForms.L|ist(1)..|
|00005080| 09 2e 63 6d 64 45 64 69 | 74 2e 45 6e 61 62 6c 65 |..cmdEdi|t.Enable|
|00005090| 64 20 3d 20 2e 6c 73 74 | 46 6f 72 6d 73 2e 4c 69 |d = .lst|Forms.Li|
|000050a0| 73 74 63 6f 75 6e 74 23 | 30 0d 0a 09 2e 63 6d 64 |stcount#|0....cmd|
|000050b0| 52 65 6d 6f 76 65 2e 45 | 6e 61 62 6c 65 64 20 3d |Remove.E|nabled =|
|000050c0| 20 2e 6c 73 74 46 6f 72 | 6d 73 2e 4c 69 73 74 63 | .lstFor|ms.Listc|
|000050d0| 6f 75 6e 74 23 30 0d 0a | 45 4e 44 57 49 54 48 0d |ount#0..|ENDWITH.|
|000050e0| 0a 0d 0a 2a 20 55 70 64 | 61 74 65 20 52 65 70 6f |...* Upd|ate Repo|
|000050f0| 72 74 73 20 6c 69 73 74 | 0d 0a 57 49 54 48 20 54 |rts list|..WITH T|
|00005100| 48 49 53 2e 70 66 31 2e | 70 67 52 65 70 6f 72 74 |HIS.pf1.|pgReport|
|00005110| 73 0d 0a 09 2e 6c 73 74 | 52 65 70 6f 72 74 73 2e |s....lst|Reports.|
|00005120| 43 6c 65 61 72 0d 0a 09 | 53 43 41 4e 20 46 4f 52 |Clear...|SCAN FOR|
|00005130| 20 64 6f 63 5f 74 79 70 | 65 20 3d 20 22 52 22 20 | doc_typ|e = "R" |
|00005140| 20 41 4e 44 20 21 44 45 | 4c 45 54 45 44 28 29 0d | AND !DE|LETED().|
|00005150| 0a 09 09 2e 6c 73 74 52 | 65 70 6f 72 74 73 2e 41 |....lstR|eports.A|
|00005160| 64 64 49 74 65 6d 28 41 | 4c 4c 54 52 49 4d 28 64 |ddItem(A|LLTRIM(d|
|00005170| 6f 63 5f 65 78 65 63 29 | 2b 3b 0d 0a 09 09 09 49 |oc_exec)|+;.....I|
|00005180| 49 46 28 21 45 4d 50 54 | 59 28 64 6f 63 5f 63 6c |IF(!EMPT|Y(doc_cl|
|00005190| 61 73 73 29 2c 22 20 28 | 22 2b 41 4c 4c 54 52 49 |ass)," (|"+ALLTRI|
|000051a0| 4d 28 64 6f 63 5f 63 6c | 61 73 73 29 2b 22 29 22 |M(doc_cl|ass)+")"|
|000051b0| 2c 22 22 29 29 0d 0a 09 | 45 4e 44 53 43 41 4e 0d |,""))...|ENDSCAN.|
|000051c0| 0a 09 2e 6c 73 74 52 65 | 70 6f 72 74 73 2e 56 61 |...lstRe|ports.Va|
|000051d0| 6c 75 65 3d 2e 6c 73 74 | 52 65 70 6f 72 74 73 2e |lue=.lst|Reports.|
|000051e0| 4c 69 73 74 28 31 29 0d | 0a 09 2e 63 6d 64 45 64 |List(1).|...cmdEd|
|000051f0| 69 74 2e 45 6e 61 62 6c | 65 64 20 3d 20 2e 6c 73 |it.Enabl|ed = .ls|
|00005200| 74 52 65 70 6f 72 74 73 | 2e 4c 69 73 74 63 6f 75 |tReports|.Listcou|
|00005210| 6e 74 23 30 0d 0a 09 2e | 63 6d 64 52 65 6d 6f 76 |nt#0....|cmdRemov|
|00005220| 65 2e 45 6e 61 62 6c 65 | 64 20 3d 20 2e 6c 73 74 |e.Enable|d = .lst|
|00005230| 52 65 70 6f 72 74 73 2e | 4c 69 73 74 63 6f 75 6e |Reports.|Listcoun|
|00005240| 74 23 30 0d 0a 45 4e 44 | 57 49 54 48 0d 0a 0d 0a |t#0..END|WITH....|
|00005250| 2a 20 42 69 6e 64 20 63 | 6f 6e 74 72 6f 6c 73 20 |* Bind c|ontrols |
|00005260| 74 6f 20 6d 65 74 61 20 | 74 61 62 6c 65 20 66 69 |to meta |table fi|
|00005270| 65 6c 64 73 0d 0a 49 46 | 20 45 4d 50 54 59 28 54 |elds..IF| EMPTY(T|
|00005280| 48 49 53 2e 70 66 31 2e | 70 67 46 6f 72 6d 73 2e |HIS.pf1.|pgForms.|
|00005290| 74 78 74 4e 61 6d 65 2e | 43 6f 6e 74 72 6f 6c 53 |txtName.|ControlS|
|000052a0| 6f 75 72 63 65 29 0d 0a | 09 57 49 54 48 20 54 48 |ource)..|.WITH TH|
|000052b0| 49 53 2e 70 66 31 2e 70 | 67 46 6f 72 6d 73 0d 0a |IS.pf1.p|gForms..|
|000052c0| 09 09 2e 74 78 74 4e 61 | 6d 65 2e 43 6f 6e 74 72 |...txtNa|me.Contr|
|000052d0| 6f 6c 53 6f 75 72 63 65 | 20 3d 20 22 64 6f 63 5f |olSource| = "doc_|
|000052e0| 64 65 73 63 72 22 0d 0a | 09 09 2e 63 68 6b 4d 75 |descr"..|...chkMu|
|000052f0| 6c 74 69 2e 43 6f 6e 74 | 72 6f 6c 53 6f 75 72 63 |lti.Cont|rolSourc|
|00005300| 65 20 3d 20 22 64 6f 63 | 5f 73 69 6e 67 6c 65 22 |e = "doc|_single"|
|00005310| 0d 0a 09 09 2e 63 68 6b | 4e 61 76 54 6f 6f 6c 62 |.....chk|NavToolb|
|00005320| 61 72 2e 43 6f 6e 74 72 | 6f 6c 53 6f 75 72 63 65 |ar.Contr|olSource|
|00005330| 20 3d 20 22 64 6f 63 5f | 6e 61 76 22 0d 0a 09 09 | = "doc_|nav"....|
|00005340| 2e 63 68 6b 4e 61 76 4d | 65 6e 75 2e 43 6f 6e 74 |.chkNavM|enu.Cont|
|00005350| 72 6f 6c 53 6f 75 72 63 | 65 20 3d 20 22 64 6f 63 |rolSourc|e = "doc|
|00005360| 5f 67 6f 22 0d 0a 09 09 | 2e 63 68 6b 46 69 6c 65 |_go"....|.chkFile|
|00005370| 4e 65 77 2e 43 6f 6e 74 | 72 6f 6c 53 6f 75 72 63 |New.Cont|rolSourc|
|00005380| 65 20 3d 20 22 64 6f 63 | 5f 6e 65 77 22 0d 0a 09 |e = "doc|_new"...|
|00005390| 09 2e 63 68 6b 46 69 6c | 65 4f 70 65 6e 2e 43 6f |..chkFil|eOpen.Co|
|000053a0| 6e 74 72 6f 6c 53 6f 75 | 72 63 65 20 3d 20 22 64 |ntrolSou|rce = "d|
|000053b0| 6f 63 5f 6f 70 65 6e 22 | 0d 0a 09 45 4e 44 57 49 |oc_open"|...ENDWI|
|000053c0| 54 48 0d 0a 09 0d 0a 09 | 57 49 54 48 20 54 48 49 |TH......|WITH THI|
|000053d0| 53 2e 70 66 31 2e 70 67 | 52 65 70 6f 72 74 73 0d |S.pf1.pg|Reports.|
|000053e0| 0a 09 09 2e 74 78 74 4e | 61 6d 65 2e 43 6f 6e 74 |....txtN|ame.Cont|
|000053f0| 72 6f 6c 53 6f 75 72 63 | 65 20 3d 20 22 64 6f 63 |rolSourc|e = "doc|
|00005400| 5f 64 65 73 63 72 22 0d | 0a 09 09 2e 63 68 6b 44 |_descr".|....chkD|
|00005410| 69 61 6c 6f 67 2e 43 6f | 6e 74 72 6f 6c 53 6f 75 |ialog.Co|ntrolSou|
|00005420| 72 63 65 20 3d 20 22 64 | 6f 63 5f 6f 70 65 6e 22 |rce = "d|oc_open"|
|00005430| 0d 0a 09 45 4e 44 57 49 | 54 48 0d 0a 45 4e 44 49 |...ENDWI|TH..ENDI|
|00005440| 46 0d 0a 0d 0a 53 45 4c | 45 43 54 20 28 6d 2e 6e |F....SEL|ECT (m.n|
|00005450| 53 61 76 65 41 72 65 61 | 29 0d 0a 45 4e 44 50 52 |SaveArea|)..ENDPR|
|00005460| 4f 43 0d 0a 50 52 4f 43 | 45 44 55 52 45 20 72 65 |OC..PROC|EDURE re|
|00005470| 66 72 65 73 68 64 6f 63 | 0d 0a 4c 50 41 52 41 4d |freshdoc|..LPARAM|
|00005480| 45 54 45 52 20 74 63 44 | 6f 63 54 79 70 65 0d 0a |ETER tcD|ocType..|
|00005490| 49 46 20 56 41 52 54 59 | 50 45 28 74 63 44 6f 63 |IF VARTY|PE(tcDoc|
|000054a0| 54 79 70 65 29 23 22 43 | 22 20 4f 52 20 21 49 4e |Type)#"C|" OR !IN|
|000054b0| 4c 49 53 54 28 55 50 50 | 45 52 28 74 63 44 6f 63 |LIST(UPP|ER(tcDoc|
|000054c0| 54 79 70 65 29 2c 22 52 | 22 2c 22 46 22 29 0d 0a |Type),"R|","F")..|
|000054d0| 09 74 63 44 6f 63 54 79 | 70 65 20 3d 20 22 46 22 |.tcDocTy|pe = "F"|
|000054e0| 0d 0a 45 4e 44 49 46 0d | 0a 0d 0a 4c 4f 43 41 4c |..ENDIF.|...LOCAL|
|000054f0| 20 6c 63 47 65 74 43 6c | 61 73 73 2c 20 6c 63 47 | lcGetCl|ass, lcG|
|00005500| 65 74 46 69 6c 65 2c 20 | 6c 63 45 78 70 72 2c 20 |etFile, |lcExpr, |
|00005510| 6c 6e 50 6f 73 20 0d 0a | 0d 0a 53 45 4c 45 43 54 |lnPos ..|..SELECT|
|00005520| 20 41 50 50 42 4c 44 52 | 5f 4d 45 54 41 0d 0a 0d | APPBLDR|_META...|
|00005530| 0a 44 4f 20 43 41 53 45 | 0d 0a 43 41 53 45 20 55 |.DO CASE|..CASE U|
|00005540| 50 50 45 52 28 74 63 44 | 6f 63 54 79 70 65 29 20 |PPER(tcD|ocType) |
|00005550| 3d 20 22 46 22 0d 0a 09 | 6c 63 45 78 70 72 20 3d |= "F"...|lcExpr =|
|00005560| 20 41 4c 4c 54 52 49 4d | 28 4c 4f 57 45 52 28 54 | ALLTRIM|(LOWER(T|
|00005570| 48 49 53 2e 70 66 31 2e | 70 67 46 6f 72 6d 73 2e |HIS.pf1.|pgForms.|
|00005580| 6c 73 74 46 6f 72 6d 73 | 2e 56 61 6c 75 65 29 29 |lstForms|.Value))|
|00005590| 0d 0a 43 41 53 45 20 55 | 50 50 45 52 28 74 63 44 |..CASE U|PPER(tcD|
|000055a0| 6f 63 54 79 70 65 29 20 | 3d 20 22 52 22 0d 0a 09 |ocType) |= "R"...|
|000055b0| 6c 63 45 78 70 72 20 3d | 20 41 4c 4c 54 52 49 4d |lcExpr =| ALLTRIM|
|000055c0| 28 4c 4f 57 45 52 28 54 | 48 49 53 2e 70 66 31 2e |(LOWER(T|HIS.pf1.|
|000055d0| 70 67 52 65 70 6f 72 74 | 73 2e 6c 73 74 52 65 70 |pgReport|s.lstRep|
|000055e0| 6f 72 74 73 2e 56 61 6c | 75 65 29 29 0d 0a 45 4e |orts.Val|ue))..EN|
|000055f0| 44 43 41 53 45 0d 0a 0d | 0a 6c 6e 50 6f 73 20 3d |DCASE...|.lnPos =|
|00005600| 20 41 54 43 28 22 28 22 | 2c 6c 63 45 78 70 72 29 | ATC("("|,lcExpr)|
|00005610| 0d 0a 0d 0a 49 46 20 6c | 6e 50 6f 73 20 23 20 30 |....IF l|nPos # 0|
|00005620| 0d 0a 09 6c 63 47 65 74 | 46 69 6c 65 20 3d 20 41 |...lcGet|File = A|
|00005630| 4c 4c 54 52 49 4d 28 53 | 55 42 53 54 52 43 28 6c |LLTRIM(S|UBSTRC(l|
|00005640| 63 45 78 70 72 2c 31 2c | 6c 6e 50 6f 73 2d 31 29 |cExpr,1,|lnPos-1)|
|00005650| 29 0d 0a 09 6c 63 47 65 | 74 43 6c 61 73 73 20 3d |)...lcGe|tClass =|
|00005660| 20 41 4c 4c 54 52 49 4d | 28 53 54 52 54 52 41 4e | ALLTRIM|(STRTRAN|
|00005670| 28 53 55 42 53 54 52 43 | 28 6c 63 45 78 70 72 2c |(SUBSTRC|(lcExpr,|
|00005680| 6c 6e 50 6f 73 2b 31 29 | 2c 22 29 22 2c 22 22 29 |lnPos+1)|,")","")|
|00005690| 29 0d 0a 45 4c 53 45 0d | 0a 09 6c 63 47 65 74 43 |)..ELSE.|..lcGetC|
|000056a0| 6c 61 73 73 20 3d 20 22 | 22 0d 0a 09 6c 63 47 65 |lass = "|"...lcGe|
|000056b0| 74 46 69 6c 65 20 3d 20 | 6c 63 45 78 70 72 0d 0a |tFile = |lcExpr..|
|000056c0| 45 4e 44 49 46 0d 0a 0d | 0a 4c 4f 43 41 54 45 20 |ENDIF...|.LOCATE |
|000056d0| 46 4f 52 20 41 4c 4c 54 | 52 49 4d 28 4c 4f 57 45 |FOR ALLT|RIM(LOWE|
|000056e0| 52 28 64 6f 63 5f 65 78 | 65 63 29 29 20 3d 3d 20 |R(doc_ex|ec)) == |
|000056f0| 6c 63 47 65 74 46 69 6c | 65 20 41 4e 44 3b 0d 0a |lcGetFil|e AND;..|
|00005700| 09 41 4c 4c 54 52 49 4d | 28 4c 4f 57 45 52 28 64 |.ALLTRIM|(LOWER(d|
|00005710| 6f 63 5f 63 6c 61 73 73 | 29 29 20 3d 3d 20 6c 63 |oc_class|)) == lc|
|00005720| 47 65 74 43 6c 61 73 73 | 20 41 4e 44 3b 0d 0a 09 |GetClass| AND;...|
|00005730| 41 4c 4c 54 52 49 4d 28 | 55 50 50 45 52 28 64 6f |ALLTRIM(|UPPER(do|
|00005740| 63 5f 74 79 70 65 29 29 | 20 3d 3d 20 74 63 44 6f |c_type))| == tcDo|
|00005750| 63 54 79 70 65 20 41 4e | 44 3b 0d 0a 09 4e 4f 54 |cType AN|D;...NOT|
|00005760| 20 44 45 4c 45 54 45 44 | 28 29 0d 0a 0d 0a 54 48 | DELETED|()....TH|
|00005770| 49 53 46 4f 52 4d 2e 52 | 45 46 52 45 53 48 28 29 |ISFORM.R|EFRESH()|
|00005780| 0d 0a 0d 0a 45 4e 44 50 | 52 4f 43 0d 0a 50 52 4f |....ENDP|ROC..PRO|
|00005790| 43 45 44 55 52 45 20 75 | 70 64 61 74 65 6d 65 6e |CEDURE u|pdatemen|
|000057a0| 75 0d 0a 4c 50 41 52 41 | 4d 45 54 45 52 53 20 63 |u..LPARA|METERS c|
|000057b0| 4d 65 6e 75 4e 61 6d 65 | 2c 20 6e 4f 62 6a 54 79 |MenuName|, nObjTy|
|000057c0| 70 65 0d 0a 0d 0a 63 53 | 61 76 65 41 72 65 61 20 |pe....cS|aveArea |
|000057d0| 3d 20 53 45 4c 45 43 54 | 28 29 0d 0a 53 45 4c 45 |= SELECT|()..SELE|
|000057e0| 43 54 20 30 0d 0a 55 53 | 45 20 28 6d 2e 63 4d 65 |CT 0..US|E (m.cMe|
|000057f0| 6e 75 4e 61 6d 65 29 20 | 41 47 41 49 4e 20 53 48 |nuName) |AGAIN SH|
|00005800| 41 52 45 44 0d 0a 49 46 | 20 21 45 4d 50 54 59 28 |ARED..IF| !EMPTY(|
|00005810| 41 4c 49 41 53 28 29 29 | 0d 0a 09 47 4f 20 54 4f |ALIAS())|...GO TO|
|00005820| 50 0d 0a 09 52 45 50 4c | 41 43 45 20 6f 62 6a 74 |P...REPL|ACE objt|
|00005830| 79 70 65 20 57 49 54 48 | 20 6e 4f 62 6a 54 79 70 |ype WITH| nObjTyp|
|00005840| 65 0d 0a 09 55 53 45 0d | 0a 45 4c 53 45 0d 0a 09 |e...USE.|.ELSE...|
|00005850| 4d 45 53 53 41 47 45 42 | 4f 58 28 43 5f 4e 4f 55 |MESSAGEB|OX(C_NOU|
|00005860| 50 44 41 54 45 47 4f 5f | 4c 4f 43 29 0d 0a 45 4e |PDATEGO_|LOC)..EN|
|00005870| 44 49 46 0d 0a 53 45 4c | 45 43 54 20 28 6d 2e 63 |DIF..SEL|ECT (m.c|
|00005880| 53 61 76 65 41 72 65 61 | 29 0d 0a 0d 0a 45 4e 44 |SaveArea|)....END|
|00005890| 50 52 4f 43 0d 0a 50 52 | 4f 43 45 44 55 52 45 20 |PROC..PR|OCEDURE |
|000058a0| 67 65 74 72 65 70 6f 72 | 74 73 74 79 6c 65 0d 0a |getrepor|tstyle..|
|000058b0| 4c 50 41 52 41 4d 45 54 | 45 52 20 74 63 73 74 79 |LPARAMET|ER tcsty|
|000058c0| 6c 65 6e 61 6d 65 0d 0a | 0d 0a 4c 4f 43 41 4c 20 |lename..|..LOCAL |
|000058d0| 63 52 65 70 6f 72 74 57 | 69 7a 53 74 79 6c 65 46 |cReportW|izStyleF|
|000058e0| 69 6c 65 2c 6e 53 61 76 | 65 41 72 65 61 2c 6c 63 |ile,nSav|eArea,lc|
|000058f0| 52 70 74 6e 61 6d 65 0d | 0a 63 52 65 70 6f 72 74 |Rptname.|.cReport|
|00005900| 57 69 7a 53 74 79 6c 65 | 46 69 6c 65 20 3d 20 48 |WizStyle|File = H|
|00005910| 4f 4d 45 28 29 2b 43 5f | 57 49 5a 53 54 59 4c 45 |OME()+C_|WIZSTYLE|
|00005920| 54 41 42 4c 45 33 0d 0a | 49 46 20 21 46 49 4c 45 |TABLE3..|IF !FILE|
|00005930| 28 6d 2e 63 52 65 70 6f | 72 74 57 69 7a 53 74 79 |(m.cRepo|rtWizSty|
|00005940| 6c 65 46 69 6c 65 29 0d | 0a 09 52 45 54 55 52 4e |leFile).|..RETURN|
|00005950| 20 43 5f 52 50 54 53 54 | 59 4c 45 31 5f 46 49 4c | C_RPTST|YLE1_FIL|
|00005960| 45 0d 0a 45 4e 44 49 46 | 0d 0a 0d 0a 6e 53 61 76 |E..ENDIF|....nSav|
|00005970| 65 41 72 65 61 20 3d 20 | 53 45 4c 45 43 54 28 29 |eArea = |SELECT()|
|00005980| 0d 0a 53 45 4c 45 43 54 | 20 30 0d 0a 55 53 45 20 |..SELECT| 0..USE |
|00005990| 28 6d 2e 63 52 65 70 6f | 72 74 57 69 7a 53 74 79 |(m.cRepo|rtWizSty|
|000059a0| 6c 65 46 69 6c 65 29 20 | 41 4c 49 41 53 20 72 70 |leFile) |ALIAS rp|
|000059b0| 74 73 74 79 6c 65 73 20 | 41 47 41 49 4e 0d 0a 49 |tstyles |AGAIN..I|
|000059c0| 46 20 21 45 4d 50 54 59 | 28 41 4c 49 41 53 28 29 |F !EMPTY|(ALIAS()|
|000059d0| 29 0d 0a 09 4c 4f 43 41 | 54 45 20 46 4f 52 20 41 |)...LOCA|TE FOR A|
|000059e0| 54 43 28 74 63 73 74 79 | 6c 65 6e 61 6d 65 2c 73 |TC(tcsty|lename,s|
|000059f0| 74 79 6c 65 6e 61 6d 65 | 29 23 30 0d 0a 09 49 46 |tylename|)#0...IF|
|00005a00| 20 46 4f 55 4e 44 28 29 | 0d 0a 09 09 6c 63 52 70 | FOUND()|....lcRp|
|00005a10| 74 6e 61 6d 65 20 3d 20 | 41 4c 4c 54 52 49 4d 28 |tname = |ALLTRIM(|
|00005a20| 73 74 79 6c 65 68 66 69 | 6c 65 29 0d 0a 09 09 2a |stylehfi|le)....*|
|00005a30| 20 43 68 65 63 6b 20 69 | 66 20 6e 61 6d 65 20 69 | Check i|f name i|
|00005a40| 73 20 65 78 70 72 65 73 | 73 69 6f 6e 0d 0a 09 09 |s expres|sion....|
|00005a50| 49 46 20 54 59 50 45 28 | 22 45 56 41 4c 28 6c 63 |IF TYPE(|"EVAL(lc|
|00005a60| 52 70 74 4e 61 6d 65 29 | 22 29 3d 22 43 22 0d 0a |RptName)|")="C"..|
|00005a70| 09 09 09 6c 63 52 70 74 | 6e 61 6d 65 20 3d 20 45 |...lcRpt|name = E|
|00005a80| 56 41 4c 28 6c 63 52 70 | 74 4e 61 6d 65 29 0d 0a |VAL(lcRp|tName)..|
|00005a90| 09 09 45 4e 44 49 46 0d | 0a 09 45 4e 44 49 46 0d |..ENDIF.|..ENDIF.|
|00005aa0| 0a 09 55 53 45 20 49 4e | 20 72 70 74 73 74 79 6c |..USE IN| rptstyl|
|00005ab0| 65 73 0d 0a 45 4e 44 49 | 46 0d 0a 53 45 4c 45 43 |es..ENDI|F..SELEC|
|00005ac0| 54 20 28 6d 2e 6e 53 61 | 76 65 41 72 65 61 29 0d |T (m.nSa|veArea).|
|00005ad0| 0a 0d 0a 52 45 54 55 52 | 4e 20 49 49 46 28 21 45 |...RETUR|N IIF(!E|
|00005ae0| 4d 50 54 59 28 6c 63 52 | 70 74 6e 61 6d 65 29 2c |MPTY(lcR|ptname),|
|00005af0| 6c 63 52 70 74 6e 61 6d | 65 2c 43 5f 52 50 54 53 |lcRptnam|e,C_RPTS|
|00005b00| 54 59 4c 45 31 5f 46 49 | 4c 45 29 0d 0a 0d 0a 45 |TYLE1_FI|LE)....E|
|00005b10| 4e 44 50 52 4f 43 0d 0a | 50 52 4f 43 45 44 55 52 |NDPROC..|PROCEDUR|
|00005b20| 45 20 73 65 6c 65 63 74 | 64 6f 63 0d 0a 50 41 52 |E select|doc..PAR|
|00005b30| 41 4d 45 54 45 52 20 74 | 63 44 6f 63 54 79 70 65 |AMETER t|cDocType|
|00005b40| 0d 0a 0d 0a 49 46 20 56 | 41 52 54 59 50 45 28 74 |....IF V|ARTYPE(t|
|00005b50| 63 44 6f 63 54 79 70 65 | 29 23 22 43 22 20 4f 52 |cDocType|)#"C" OR|
|00005b60| 20 21 49 4e 4c 49 53 54 | 28 55 50 50 45 52 28 74 | !INLIST|(UPPER(t|
|00005b70| 63 44 6f 63 54 79 70 65 | 29 2c 22 52 22 2c 22 46 |cDocType|),"R","F|
|00005b80| 22 29 0d 0a 09 74 63 44 | 6f 63 54 79 70 65 20 3d |")...tcD|ocType =|
|00005b90| 20 22 46 22 0d 0a 45 4e | 44 49 46 0d 0a 0d 0a 4c | "F"..EN|DIF....L|
|00005ba0| 4f 43 41 4c 20 6c 63 46 | 69 6c 65 2c 6c 63 43 6c |OCAL lcF|ile,lcCl|
|00005bb0| 61 73 73 2c 61 44 6f 63 | 43 6c 61 73 73 2c 6c 63 |ass,aDoc|Class,lc|
|00005bc0| 44 6f 63 54 79 70 65 2c | 6c 63 45 78 74 0d 0a 0d |DocType,|lcExt...|
|00005bd0| 0a 6c 63 44 6f 63 54 79 | 70 65 20 3d 20 55 50 50 |.lcDocTy|pe = UPP|
|00005be0| 45 52 28 74 63 44 6f 63 | 54 79 70 65 29 0d 0a 6c |ER(tcDoc|Type)..l|
|00005bf0| 63 43 6c 61 73 73 3d 22 | 22 0d 0a 0d 0a 6c 63 46 |cClass="|"....lcF|
|00005c00| 69 6c 65 3d 20 47 45 54 | 46 49 4c 45 28 49 49 46 |ile= GET|FILE(IIF|
|00005c10| 28 6c 63 44 6f 63 54 79 | 70 65 3d 22 46 22 2c 46 |(lcDocTy|pe="F",F|
|00005c20| 4f 52 4d 5f 54 59 50 45 | 5f 45 58 54 45 4e 53 49 |ORM_TYPE|_EXTENSI|
|00005c30| 4f 4e 53 2c 52 45 50 4f | 52 54 5f 54 59 50 45 5f |ONS,REPO|RT_TYPE_|
|00005c40| 45 58 54 45 4e 53 49 4f | 4e 53 29 29 0d 0a 0d 0a |EXTENSIO|NS))....|
|00005c50| 44 49 4d 45 4e 53 49 4f | 4e 20 61 44 6f 63 43 6c |DIMENSIO|N aDocCl|
|00005c60| 61 73 73 5b 31 5d 0d 0a | 0d 0a 49 46 20 45 4d 50 |ass[1]..|..IF EMP|
|00005c70| 54 59 28 6c 63 46 69 6c | 65 29 20 4f 52 20 21 46 |TY(lcFil|e) OR !F|
|00005c80| 49 4c 45 28 6c 63 46 69 | 6c 65 29 0d 0a 09 52 45 |ILE(lcFi|le)...RE|
|00005c90| 54 55 52 4e 20 2e 46 2e | 0d 0a 45 4e 44 49 46 0d |TURN .F.|..ENDIF.|
|00005ca0| 0a 0d 0a 6c 63 45 78 74 | 20 3d 20 55 50 50 45 52 |...lcExt| = UPPER|
|00005cb0| 28 4a 55 53 54 45 58 54 | 28 6c 63 46 69 6c 65 29 |(JUSTEXT|(lcFile)|
|00005cc0| 29 0d 0a 0d 0a 2a 20 43 | 68 65 63 6b 20 66 6f 72 |)....* C|heck for|
|00005cd0| 20 69 6e 76 61 6c 69 64 | 20 66 69 6c 65 20 74 79 | invalid| file ty|
|00005ce0| 70 65 0d 0a 49 46 20 20 | 28 6c 63 44 6f 63 54 79 |pe..IF |(lcDocTy|
|00005cf0| 70 65 3d 22 46 22 20 41 | 4e 44 20 41 54 43 28 6c |pe="F" A|ND ATC(l|
|00005d00| 63 45 78 74 2c 46 4f 52 | 4d 5f 54 59 50 45 5f 45 |cExt,FOR|M_TYPE_E|
|00005d10| 58 54 45 4e 53 49 4f 4e | 53 29 3d 30 29 20 4f 52 |XTENSION|S)=0) OR|
|00005d20| 20 3b 0d 0a 09 28 6c 63 | 44 6f 63 54 79 70 65 3d | ;...(lc|DocType=|
|00005d30| 22 52 22 20 41 4e 44 20 | 41 54 43 28 6c 63 45 78 |"R" AND |ATC(lcEx|
|00005d40| 74 2c 52 45 50 4f 52 54 | 5f 54 59 50 45 5f 45 58 |t,REPORT|_TYPE_EX|
|00005d50| 54 45 4e 53 49 4f 4e 53 | 29 3d 30 29 0d 0a 09 4d |TENSIONS|)=0)...M|
|00005d60| 45 53 53 41 47 45 42 4f | 58 28 42 41 44 46 49 4c |ESSAGEBO|X(BADFIL|
|00005d70| 45 54 59 50 45 5f 4c 4f | 43 29 0d 0a 09 52 45 54 |ETYPE_LO|C)...RET|
|00005d80| 55 52 4e 20 2e 46 2e 0d | 0a 45 4e 44 49 46 0d 0a |URN .F..|.ENDIF..|
|00005d90| 0d 0a 49 46 20 41 54 43 | 28 22 56 43 58 22 2c 4a |..IF ATC|("VCX",J|
|00005da0| 55 53 54 45 58 54 28 6c | 63 46 69 6c 65 29 29 23 |USTEXT(l|cFile))#|
|00005db0| 30 0d 0a 09 49 46 20 41 | 47 45 54 43 4c 41 53 53 |0...IF A|GETCLASS|
|00005dc0| 28 61 44 6f 63 43 6c 61 | 73 73 2c 6c 63 46 69 6c |(aDocCla|ss,lcFil|
|00005dd0| 65 29 0d 0a 09 09 6c 63 | 46 69 6c 65 20 3d 20 61 |e)....lc|File = a|
|00005de0| 44 6f 63 43 6c 61 73 73 | 5b 31 5d 0d 0a 09 09 6c |DocClass|[1]....l|
|00005df0| 63 43 6c 61 73 73 20 3d | 20 61 44 6f 63 43 6c 61 |cClass =| aDocCla|
|00005e00| 73 73 5b 32 5d 0d 0a 09 | 45 4e 44 49 46 0d 0a 45 |ss[2]...|ENDIF..E|
|00005e10| 4e 44 49 46 0d 0a 0d 0a | 49 46 20 50 45 4d 53 54 |NDIF....|IF PEMST|
|00005e20| 41 54 55 53 28 54 48 49 | 53 2e 6f 50 72 6f 6a 65 |ATUS(THI|S.oProje|
|00005e30| 63 74 2e 50 72 6f 6a 65 | 63 74 48 6f 6f 6b 2c 22 |ct.Proje|ctHook,"|
|00005e40| 6c 42 79 50 61 73 73 42 | 75 69 6c 64 65 72 22 2c |lByPassB|uilder",|
|00005e50| 35 29 0d 0a 09 54 48 49 | 53 2e 6f 50 72 6f 6a 65 |5)...THI|S.oProje|
|00005e60| 63 74 2e 50 72 6f 6a 65 | 63 74 48 6f 6f 6b 2e 6c |ct.Proje|ctHook.l|
|00005e70| 42 79 50 61 73 73 42 75 | 69 6c 64 65 72 20 3d 20 |ByPassBu|ilder = |
|00005e80| 2e 54 2e 0d 0a 45 4e 44 | 49 46 0d 0a 54 48 49 53 |.T...END|IF..THIS|
|00005e90| 2e 6f 50 72 6f 6a 65 63 | 74 2e 46 69 6c 65 73 2e |.oProjec|t.Files.|
|00005ea0| 41 64 64 28 6c 63 46 69 | 6c 65 29 0d 0a 54 48 49 |Add(lcFi|le)..THI|
|00005eb0| 53 2e 41 64 64 44 6f 63 | 28 6c 63 46 69 6c 65 2c |S.AddDoc|(lcFile,|
|00005ec0| 6c 63 43 6c 61 73 73 2c | 2e 54 2e 2c 6c 63 44 6f |lcClass,|.T.,lcDo|
|00005ed0| 63 54 79 70 65 29 0d 0a | 49 46 20 50 45 4d 53 54 |cType)..|IF PEMST|
|00005ee0| 41 54 55 53 28 54 48 49 | 53 2e 6f 50 72 6f 6a 65 |ATUS(THI|S.oProje|
|00005ef0| 63 74 2e 50 72 6f 6a 65 | 63 74 48 6f 6f 6b 2c 22 |ct.Proje|ctHook,"|
|00005f00| 6c 42 79 50 61 73 73 42 | 75 69 6c 64 65 72 22 2c |lByPassB|uilder",|
|00005f10| 35 29 0d 0a 09 54 48 49 | 53 2e 6f 50 72 6f 6a 65 |5)...THI|S.oProje|
|00005f20| 63 74 2e 50 72 6f 6a 65 | 63 74 48 6f 6f 6b 2e 6c |ct.Proje|ctHook.l|
|00005f30| 42 79 50 61 73 73 42 75 | 69 6c 64 65 72 20 3d 20 |ByPassBu|ilder = |
|00005f40| 2e 46 2e 0d 0a 45 4e 44 | 49 46 0d 0a 54 48 49 53 |.F...END|IF..THIS|
|00005f50| 2e 55 70 64 61 74 65 44 | 6f 63 73 28 29 0d 0a 0d |.UpdateD|ocs()...|
|00005f60| 0a 45 4e 44 50 52 4f 43 | 0d 0a 50 52 4f 43 45 44 |.ENDPROC|..PROCED|
|00005f70| 55 52 45 20 72 65 6d 6f | 76 65 66 72 6f 6d 6d 65 |URE remo|vefromme|
|00005f80| 74 61 0d 0a 4c 50 41 52 | 41 4d 45 54 45 52 20 74 |ta..LPAR|AMETER t|
|00005f90| 63 46 69 6c 65 4e 61 6d | 65 0d 0a 0d 0a 4c 4f 43 |cFileNam|e....LOC|
|00005fa0| 41 4c 20 6c 63 45 78 74 | 2c 6c 63 46 69 6c 65 4e |AL lcExt|,lcFileN|
|00005fb0| 61 6d 65 2c 6c 63 44 6f | 63 54 79 70 65 2c 6e 53 |ame,lcDo|cType,nS|
|00005fc0| 61 76 65 41 72 65 61 0d | 0a 0d 0a 6e 53 61 76 65 |aveArea.|...nSave|
|00005fd0| 41 72 65 61 20 3d 20 53 | 45 4c 45 43 54 28 29 0d |Area = S|ELECT().|
|00005fe0| 0a 0d 0a 6c 63 45 78 74 | 20 3d 20 55 50 50 45 52 |...lcExt| = UPPER|
|00005ff0| 28 4a 55 53 54 45 58 54 | 28 74 63 46 69 6c 65 4e |(JUSTEXT|(tcFileN|
|00006000| 61 6d 65 29 29 0d 0a 6c | 63 46 69 6c 65 4e 61 6d |ame))..l|cFileNam|
|00006010| 65 20 3d 20 55 50 50 45 | 52 28 4a 55 53 54 53 54 |e = UPPE|R(JUSTST|
|00006020| 45 4d 28 74 63 46 69 6c | 65 4e 61 6d 65 29 29 0d |EM(tcFil|eName)).|
|00006030| 0a 0d 0a 53 45 4c 45 43 | 54 20 61 70 70 62 6c 64 |...SELEC|T appbld|
|00006040| 72 5f 6d 65 74 61 0d 0a | 0d 0a 44 4f 20 43 41 53 |r_meta..|..DO CAS|
|00006050| 45 0d 0a 43 41 53 45 20 | 49 4e 4c 49 53 54 28 6c |E..CASE |INLIST(l|
|00006060| 63 45 78 74 2c 22 46 52 | 58 22 2c 22 53 43 58 22 |cExt,"FR|X","SCX"|
|00006070| 2c 22 4c 42 58 22 29 0d | 0a 09 6c 63 44 6f 63 54 |,"LBX").|..lcDocT|
|00006080| 79 70 65 20 3d 20 49 49 | 46 28 6c 63 45 78 74 3d |ype = II|F(lcExt=|
|00006090| 22 53 43 58 22 2c 22 46 | 22 2c 22 52 22 29 0d 0a |"SCX","F|","R")..|
|000060a0| 09 44 45 4c 45 54 45 20 | 41 4c 4c 20 46 4f 52 20 |.DELETE |ALL FOR |
|000060b0| 55 50 50 45 52 28 64 6f | 63 5f 74 79 70 65 29 20 |UPPER(do|c_type) |
|000060c0| 3d 20 6c 63 44 6f 63 54 | 79 70 65 20 41 4e 44 20 |= lcDocT|ype AND |
|000060d0| 21 64 6f 63 5f 77 72 61 | 70 20 41 4e 44 3b 0d 0a |!doc_wra|p AND;..|
|000060e0| 09 09 55 50 50 45 52 28 | 41 4c 4c 54 52 49 4d 28 |..UPPER(|ALLTRIM(|
|000060f0| 64 6f 63 5f 65 78 65 63 | 29 29 3d 3d 20 6c 63 46 |doc_exec|))== lcF|
|00006100| 69 6c 65 4e 61 6d 65 20 | 41 4e 44 3b 0d 0a 09 09 |ileName |AND;....|
|00006110| 45 4d 50 54 59 28 41 4c | 4c 54 52 49 4d 28 64 6f |EMPTY(AL|LTRIM(do|
|00006120| 63 5f 63 6c 61 73 73 29 | 29 20 41 4e 44 20 4e 4f |c_class)|) AND NO|
|00006130| 54 20 44 45 4c 45 54 45 | 44 28 29 0d 0a 43 41 53 |T DELETE|D()..CAS|
|00006140| 45 20 6c 63 45 78 74 3d | 22 56 43 58 22 0d 0a 09 |E lcExt=|"VCX"...|
|00006150| 44 45 4c 45 54 45 20 41 | 4c 4c 20 46 4f 52 20 21 |DELETE A|LL FOR !|
|00006160| 64 6f 63 5f 77 72 61 70 | 20 41 4e 44 20 21 45 4d |doc_wrap| AND !EM|
|00006170| 50 54 59 28 41 4c 4c 54 | 52 49 4d 28 64 6f 63 5f |PTY(ALLT|RIM(doc_|
|00006180| 63 6c 61 73 73 29 29 20 | 41 4e 44 3b 0d 0a 09 09 |class)) |AND;....|
|00006190| 55 50 50 45 52 28 41 4c | 4c 54 52 49 4d 28 64 6f |UPPER(AL|LTRIM(do|
|000061a0| 63 5f 65 78 65 63 29 29 | 3d 3d 20 6c 63 46 69 6c |c_exec))|== lcFil|
|000061b0| 65 4e 61 6d 65 20 41 4e | 44 20 4e 4f 54 20 44 45 |eName AN|D NOT DE|
|000061c0| 4c 45 54 45 44 28 29 0d | 0a 43 41 53 45 20 41 54 |LETED().|.CASE AT|
|000061d0| 43 28 6c 63 45 78 74 2c | 22 50 52 47 2c 46 58 50 |C(lcExt,|"PRG,FXP|
|000061e0| 2c 41 50 50 2c 45 58 45 | 2c 4d 50 52 2c 4d 50 58 |,APP,EXE|,MPR,MPX|
|000061f0| 2c 51 50 52 2c 51 50 58 | 22 29 23 30 0d 0a 09 44 |,QPR,QPX|")#0...D|
|00006200| 45 4c 45 54 45 20 41 4c | 4c 20 46 4f 52 20 64 6f |ELETE AL|L FOR do|
|00006210| 63 5f 77 72 61 70 20 41 | 4e 44 20 45 4d 50 54 59 |c_wrap A|ND EMPTY|
|00006220| 28 41 4c 4c 54 52 49 4d | 28 64 6f 63 5f 63 6c 61 |(ALLTRIM|(doc_cla|
|00006230| 73 73 29 29 20 41 4e 44 | 3b 0d 0a 09 09 55 50 50 |ss)) AND|;....UPP|
|00006240| 45 52 28 41 4c 4c 54 52 | 49 4d 28 64 6f 63 5f 65 |ER(ALLTR|IM(doc_e|
|00006250| 78 65 63 29 29 3d 3d 20 | 6c 63 46 69 6c 65 4e 61 |xec))== |lcFileNa|
|00006260| 6d 65 20 41 4e 44 20 4e | 4f 54 20 44 45 4c 45 54 |me AND N|OT DELET|
|00006270| 45 44 28 29 0d 0a 45 4e | 44 43 41 53 45 0d 0a 54 |ED()..EN|DCASE..T|
|00006280| 41 42 4c 45 55 50 44 41 | 54 45 28 2e 54 2e 29 0d |ABLEUPDA|TE(.T.).|
|00006290| 0a 0d 0a 53 45 4c 45 43 | 54 20 28 6d 2e 6e 53 61 |...SELEC|T (m.nSa|
|000062a0| 76 65 41 72 65 61 29 0d | 0a 45 4e 44 50 52 4f 43 |veArea).|.ENDPROC|
|000062b0| 0d 0a 50 52 4f 43 45 44 | 55 52 45 20 63 6c 65 61 |..PROCED|URE clea|
|000062c0| 6e 75 70 0d 0a 4c 4f 43 | 41 4c 20 6e 53 61 76 65 |nup..LOC|AL nSave|
|000062d0| 41 72 65 61 2c 20 6c 63 | 46 69 6c 65 4e 61 6d 65 |Area, lc|FileName|
|000062e0| 2c 20 6c 63 46 69 6c 65 | 4e 61 6d 65 32 2c 20 6c |, lcFile|Name2, l|
|000062f0| 63 53 74 65 6d 4e 61 6d | 65 2c 20 6c 63 44 42 46 |cStemNam|e, lcDBF|
|00006300| 0d 0a 4c 4f 43 41 4c 20 | 6f 50 72 6f 6a 46 69 6c |..LOCAL |oProjFil|
|00006310| 65 2c 20 6c 63 44 6f 63 | 54 79 70 65 0d 0a 0d 0a |e, lcDoc|Type....|
|00006320| 49 46 20 4d 45 53 53 41 | 47 45 42 4f 58 28 43 4c |IF MESSA|GEBOX(CL|
|00006330| 45 41 4e 55 50 4d 45 54 | 41 5f 4c 4f 43 2c 33 36 |EANUPMET|A_LOC,36|
|00006340| 29 23 36 0d 0a 09 52 45 | 54 55 52 4e 0d 0a 45 4e |)#6...RE|TURN..EN|
|00006350| 44 49 46 0d 0a 0d 0a 6e | 53 61 76 65 41 72 65 61 |DIF....n|SaveArea|
|00006360| 3d 53 45 4c 45 43 54 28 | 29 0d 0a 0d 0a 49 46 20 |=SELECT(|)....IF |
|00006370| 21 55 53 45 44 28 22 61 | 70 70 62 6c 64 72 5f 6d |!USED("a|ppbldr_m|
|00006380| 65 74 61 22 29 0d 0a 09 | 52 45 54 55 52 4e 0d 0a |eta")...|RETURN..|
|00006390| 45 4e 44 49 46 0d 0a 0d | 0a 53 45 4c 45 43 54 20 |ENDIF...|.SELECT |
|000063a0| 61 70 70 62 6c 64 72 5f | 6d 65 74 61 0d 0a 0d 0a |appbldr_|meta....|
|000063b0| 2a 20 43 68 65 63 6b 20 | 6d 65 74 61 20 74 61 62 |* Check |meta tab|
|000063c0| 6c 65 0d 0a 57 41 49 54 | 20 57 49 4e 44 4f 57 20 |le..WAIT| WINDOW |
|000063d0| 4e 4f 57 41 49 54 20 53 | 54 41 54 5f 55 50 44 41 |NOWAIT S|TAT_UPDA|
|000063e0| 54 45 4d 45 54 41 5f 4c | 4f 43 20 0d 0a 53 43 41 |TEMETA_L|OC ..SCA|
|000063f0| 4e 20 46 4f 52 20 21 44 | 45 4c 45 54 45 44 28 29 |N FOR !D|ELETED()|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
